FREDPLONGEUR
XLDnaute Junior
Bonjour forum
cette macro ne fonctionne pas, la variable n'est pas bonne, pourquoi
Range("A65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "zzz"
Dim Var As Range
Range("A2").Select
Set Var = Cel.Value
ActiveCell.Offset(1, 0).Select
Do While Var.Value <> "zzz"
If Cel.Value = Var Then
ActiveCell.Offset(1, 0).Select
Else
Selection.EntireRow.Insert
ActiveCell.Offset(1, 0).Select
End If
Set Var = Cel.Value
Loop
End Sub
cette macro ne fonctionne pas, la variable n'est pas bonne, pourquoi
Range("A65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "zzz"
Dim Var As Range
Range("A2").Select
Set Var = Cel.Value
ActiveCell.Offset(1, 0).Select
Do While Var.Value <> "zzz"
If Cel.Value = Var Then
ActiveCell.Offset(1, 0).Select
Else
Selection.EntireRow.Insert
ActiveCell.Offset(1, 0).Select
End If
Set Var = Cel.Value
Loop
End Sub