bonjour à tous
je viens vous demander vos lumières
j'utilise une macro qui compare 3 colonne puis incrément la 3 eme
la macro marche plutôt bien mais pour faire evoluer ma macro j'aimerais modifier la ligne
par un genre de
le but étant de ne plus avoir les lettre A4:A34 ... pour me permettre de créer une boucle sur d'autre colonne
quelqu'un aurais une petite idée svp merci
je viens vous demander vos lumières
j'utilise une macro qui compare 3 colonne puis incrément la 3 eme
Code:
Sub Ajout_Auto()
Dim c As Range
Dim s As Range
Dim d As Range
Dim TaValeur As String
Dim TaValeur2 As String
For i = 3 To 34
DL = Sheets("Liste").Cells(34, 1).End(xlUp).Row + 1
TaValeur = Sheets("Dispo").Range("B" & i).Value
Set c = Sheets("Liste").Range("A4:A34").Find(TaValeur, Range("A4"))
If Not c Is Nothing Then
Set c = Nothing
Else
TaValeur2 = TaValeur
Set s = Sheets("Parametre").Range("J2:J34").Find(TaValeur, Range("J2"))
If Not s Is Nothing Then
Sheets("Liste").Cells(DL, 1) = TaValeur
Set s = Nothing
Else
End If
End If
Next i
Retrait_Auto
End Sub
la macro marche plutôt bien mais pour faire evoluer ma macro j'aimerais modifier la ligne
Code:
Set c = Sheets("Liste").Range("A4:A34").Find(TaValeur, Range("A4"))
par un genre de
Code:
Set c = Sheets("Liste").Range(Cells(4, 1), Cells(34, 1)).Find(TaValeur, Cells(4, 1))
le but étant de ne plus avoir les lettre A4:A34 ... pour me permettre de créer une boucle sur d'autre colonne
quelqu'un aurais une petite idée svp merci
Pièces jointes
Dernière édition: