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 :
Je ne pense pas que ton code soit complet, il manque des initialisations, des déclarations, des commentaires.
@+
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.
@+
"Je ne pense pas que ton code soit complet..."
:D)) ben oui, on balance des "bouts de code" glanés ici et là, et débrouille-toi !
C'est un peu la mode du moment...
Heureusement la solution universelle est là :
http://faqword.com/index.php/component/content/article/768.html
;)
m@rina
oui mon code n'est pas complet, il faudrait que j'envoie une panoplie de fichiers qui vont avec la macro c'est donc pour ça que j'ai mis un "bout" de code...
merci!