vba Fermé

Question

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!

Gord21 · Answer

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.

@+

Vba

1 réponse

Discussions similaires