Vba
vba
-
vba -
vba -
Bonjour,
je suis novice en vba, voici un bout de code qui me pose problème
'test la présence d'un std par ligne et la présence d'au moins deux mdd par ligne mdd
Dim rango2 As Range
Dim maximum2, cont2, marca2 As Integer
maximum2 = R - W
cont2 = 2
Do While (maximum2 > cont2)
marca2 = 1
ini12 = cont2
cont2 = cont2 + 1
Do While (marca2 <> 0)
var12 = Cells(cont2, Rang).Value
var22 = Cells(cont2 - 1, Rang).Value
If var12 <> var22 Then
marca2 = 0
Else
cont2 = cont2 + 1
End If
Loop
var4 = Cells(ini12, Rang + 13).Value
If var4 <> "STD" And Cells(ini12, Rang + 12).Value <> "" Then
Cells(ini12, Rang + 12).Value = Cells(ini12, Rang + 12).Value & " / WITHOUT STD"
End If
If var4 <> "STD" And Cells(ini12, Rang + 12).Value = "" Then
Cells(ini12, Rang + 12).Value = "WITHOUT STD"
End If
Loop
le test est fait avec la colonne 1 je voudrais qu'il le fasse sur la colonne 4
je ne sais ^pas si je suis claire
merci!
je suis novice en vba, voici un bout de code qui me pose problème
'test la présence d'un std par ligne et la présence d'au moins deux mdd par ligne mdd
Dim rango2 As Range
Dim maximum2, cont2, marca2 As Integer
maximum2 = R - W
cont2 = 2
Do While (maximum2 > cont2)
marca2 = 1
ini12 = cont2
cont2 = cont2 + 1
Do While (marca2 <> 0)
var12 = Cells(cont2, Rang).Value
var22 = Cells(cont2 - 1, Rang).Value
If var12 <> var22 Then
marca2 = 0
Else
cont2 = cont2 + 1
End If
Loop
var4 = Cells(ini12, Rang + 13).Value
If var4 <> "STD" And Cells(ini12, Rang + 12).Value <> "" Then
Cells(ini12, Rang + 12).Value = Cells(ini12, Rang + 12).Value & " / WITHOUT STD"
End If
If var4 <> "STD" And Cells(ini12, Rang + 12).Value = "" Then
Cells(ini12, Rang + 12).Value = "WITHOUT STD"
End If
Loop
le test est fait avec la colonne 1 je voudrais qu'il le fasse sur la colonne 4
je ne sais ^pas si je suis claire
merci!
1 réponse
-
Bonjour,
Je n'ai pas regardé le code en profondeur mais je pense qu'il faut que tu fasses :... Do While (marca2 <> 0) var12 = Cells(cont2, Rang+3).Value var22 = Cells(cont2 - 1, Rang+3).Value ...
Je ne pense pas que ton code soit complet, il manque des initialisations, des déclarations, des commentaires.
@+
