copier des données avec conditions

**captaine93** · 25/11/2007, 11h19

Bonjour !
Dans le jeu de données ci-joint, je voudrais copier les valeurs de la colonne C dans la colonne H selon plusieurs critères…
Par exemple je veux copier pour les valeurs de la colonne A « 3160T1,1 » la plus petite valeur positive de la colonne C…ici, la valeur est 286.
J’ai une ébauche de code que voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Range("a1").Select
 
  For Index = 2 To 50
          If (Cells(Index, 1) = "3160T1,1" and cells(Index,3)>0)Then
           Range(Cells(Index, 3), Cells(Index, 3)).Select
 
        Selection.Copy
         Range(Cells(Index, 8), Cells(Index, 8)).Select
        ActiveSheet.Paste
 
      End If
    Next Index
 
End Sub

Ce code ne répond pas à « la plus petite valeur positive »…de plus, je ne sais pas généraliser ce code pour les autres valeurs de la colonne A : j’ai d’autres valeurs comme 3160t1,10 3160t1,11…(la valeur du chiffre après la virgule variant de 1 à 40 mais toutes les valeurs n’y sont pas forcément)…
Merci à ceux qui pourront m’aider

**Qwazerty** · 25/11/2007, 12h27

SAlut
Voila un debut je n'est aps trop le temps mais ce bout de code devrait te permettre de faire la liste des differents noms contenus dans ta colonne A

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub MiniVal
Dim PlageNom as Range, TestRange as range
Dim StrList(10) as String
Dim LastStr as Integer
 
PlageNom = Range("A1", Range("A1").End(xlDown))
LastStr = 0
'On cré la liste de nom differents existant dans la colonne A
For each TestRange In PlageNom
    For i = 0 to High(StrList)
         If TestRange.Text = StrList(I) Then 
             Goto Deja
         ElseIf TestRange.Text = "" Then
             Exit For
         End If
    Next i
    StrList(LastStr) = TestRange.Text 
    If LastStr = High(StrList) Then Redim Preserve StrList(High(StrList) + 10) 'Allocation par bloc de 10 pour evité l'etalement en memoire
    LastStr = LastStr +1
Deja:
Next TestRange 
 
End Sub

Je regarderai pour la suite apres mangé

J'ai fait ca sous Open Office ! et oui je l'avais oublié celui la

mais bon j'ai pas l'aide a la syntaxe donc y'a peut etre des erreur de terme je n'ai pas testé le code

A++
QWaz

**captaine93** · 25/11/2007, 13h14

Merci...
Problème de définition de "High"...dois je le définir en range ?
Encore merci de ton aide

**Qwazerty** · 25/11/2007, 13h47

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
'Ensuite il faut chercher la valeur la plus petite
ValeurP 9999999 'Mettre une valeur tres grande je sais pas si en vb il y a pas un truc style Max_Int (qui represente la plus grande valeur possible pour un Integer
For i = 0 To LastStr
    For each TestRange In PlageNom 'A la place de la boucle Fro each tu doit pouvoir utiliser Cells.find mais je ne l'ai jamais utilisé renseigne toi, ca gagnerai beaucoup de temps
        If (StrList(i) = TestRange.Text) And (cInt(ValeurP.text) > Cint(Cells(TestRange.row,3))) Then 
            ValeurP := CInt(Cells(TestRange.row,3))
            RowP := TestRange.row 
        end If
    Next TestRange      
    Cells(rowP,8) = ValeurP
    ValeurP.Text = cstr(9999999)
Next i

Heu zut pour High non c'est que je fait plus du Delphi que du VB High est un mot clef qui te permet d'optenir la plus grande valeur d'un tableau,je regarde ca
++
Qwaz

**Qwazerty** · 25/11/2007, 13h58

Re
Voila j'ai pas retrouvé la function qui le fait je pensais a HigherBound ou HighBound mais je l'ai pas retrouvé, enfin bref

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Sub MiniVal
Dim PlageNom as Range, TestRange as range
Dim StrList(10) as String
Dim LastStr as Integer
Dim ValeurP, RowP as Integer
Dim MaxStr as Integer
 
MaxStr = 10
 
PlageNom = Range("A1", Range("A1").End(xlDown))
LastStr = 0
'On cré la liste de nom differents existant dans la colonne A
For each TestRange In PlageNom
    For i = 0 to High(StrList)
         If TestRange.Text = StrList(I) Then 
             Goto Deja
         ElseIf TestRange.Text = "" Then
             Exit For
         End If
    Next i
    StrList(LastStr) = TestRange.Text 
    If LastStr = MaxStr Then
        MaxStr = MaxStr + 10 'Allocation par bloc de 10 pour evité l'etalement en memoire
        Redim Preserve StrList(MaxStr)
    End
    LastStr = LastStr +1
Deja:
Next TestRange
 
'Ensuite il faut chercher la valeur la plus petite
ValeurP 9999999 'Mettre une valeur tres grande je sais pas si en vb il y a pas un truc style Max_Int (qui represente la plus grande valeur possible pour un Integer
For i = 0 To LastStr
    For each TestRange In PlageNom 'A la place de la boucle Fro each tu doit pouvoir utiliser Cells.find mais je ne l'ai jamais utilisé renseigne toi, ca gagnerai beaucoup de temps
        If (StrList(i) = TestRange.Text) And (cInt(ValeurP.text) > Cint(Cells(TestRange.row,3))) Then 
            ValeurP := CInt(Cells(TestRange.row,3))
            RowP := TestRange.row 
        end If
    Next TestRange      
    Cells(rowP,8) = ValeurP
    ValeurP.Text = cstr(9999999)
Next i
 
End Sub

Je n'ai pas put le tester Open Office reconnait pas les as range .....

A++
Qwaz

**Qwazerty** · 28/11/2007, 21h21

SAlut
En cherchant autre chose pour quelqu'un d'autre je suis tombé sur BDMin qui te permet de sortir la plus petite valeur celon critere, en l'assemblant avec d'autre function ca serait peut etre possible de resortir ce que tu veux sans avoir a faire du code
A++
Qwaz

**captaine93** · 30/11/2007, 11h47

je te remercie beaucoup...je vais me pencher sur cette fonction car j'avoue que le code que tu m'as proposé me pose des soucis et révèle mes faiblesses en VBA.
Encore merci du tuyau

**Qwazerty** · 04/12/2007, 17h17

SAlut
J'ai envoyer mon code au boulot poue le tester sous excel

j'ai corrigé les erreurs voila le code corrigé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub MiniVal() 
Dim PlageNom As Range, TestRange As Range 
Dim StrList() As String 
Dim LastStr As Integer 
Dim ValeurP, RowP As Integer 
Dim MaxStr As Integer 
Dim i As Integer 
 
MaxStr = 10 
ReDim Preserve StrList(MaxStr) 
 
Set PlageNom = Range("A2", Range("A1").End(xlDown)) 
LastStr = 0 
'On cré la liste de nom differents existant dans la colonne A 
For Each TestRange In PlageNom 
    For i = 0 To MaxStr 
         If TestRange.Text = StrList(i) Then 
             GoTo Deja 
         ElseIf TestRange.Text = "" Then 
             Exit For 
         End If 
    Next i 
    StrList(LastStr) = TestRange.Text 
    If LastStr = MaxStr Then 
        MaxStr = MaxStr + 10 'Allocation par bloc de 10 pour evité l'etalement en memoire 
        ReDim Preserve StrList(MaxStr) 
    End If 
    LastStr = LastStr + 1 
Deja: 
Next TestRange 
 
'Ensuite il faut chercher la valeur la plus petite 
ValeurP = 32700 'Mettre une valeur tres grande je sais pas si en vb il y a pas un truc style Max_Int (qui represente la plus grande valeur possible pour un Integer 
For i = 0 To LastStr 
    For Each TestRange In PlageNom 'A la place de la boucle Fro each tu doit pouvoir utiliser Cells.find mais je ne l'ai jamais utilisé renseigne toi, ca gagnerai beaucoup de temps 
        If (StrList(i) = TestRange.Text) And (CInt(ValeurP) > CInt(Cells(TestRange.Row, 3))) Then 
            ValeurP = CInt(Cells(TestRange.Row, 3)) 
            RowP = TestRange.Row 
        End If 
    Next TestRange 
    Cells(RowP, 8) = ValeurP 
    ValeurP = 32700 
Next i 
 
End Sub

A++
Qwaz

**captaine93** · 13/12/2007, 16h47

C'est exactement ce qu'il me fallait!
Un TRES GRAND merci à toi

copier des données avec conditions

Macros et VBA Excel

Discussions similaires

Partager

Partager