[VBA_Excel] Incompatibilité de type.
Résolu
Bonjour à tous,
je commence à bricoler sur VBA (déjà 2 grandes macros d'une dizaine de lignes) et me je heurte à un petit problème. Cette macro exécute correctement ce que j'attends d'elle, MAIS à la fin j'ai droit à: "incompatibilité de type".
Si quelqu'un a une explication je suis preneur.
D'avance merci.
Sub ModifColonnes()
Dim a As Long
Dim b As Long
Dim c As Long
a = Range("C65536").End(xlUp).Row
For b = a To 1 Step -1
If Cells(b, 3).Value = "lili" Then
Cells(b, 3).Value = "titi"
End If
Next b
c = Range("B65536").End(xlUp).Row
For b = c To 1 Step -1
If Cells(b, 2).Value = "lolo" Then
Rows(b).Select
Selection.Delete Shift:=xlUp
End If
Next b
End Sub
je commence à bricoler sur VBA (déjà 2 grandes macros d'une dizaine de lignes) et me je heurte à un petit problème. Cette macro exécute correctement ce que j'attends d'elle, MAIS à la fin j'ai droit à: "incompatibilité de type".
Si quelqu'un a une explication je suis preneur.
D'avance merci.
Sub ModifColonnes()
Dim a As Long
Dim b As Long
Dim c As Long
a = Range("C65536").End(xlUp).Row
For b = a To 1 Step -1
If Cells(b, 3).Value = "lili" Then
Cells(b, 3).Value = "titi"
End If
Next b
c = Range("B65536").End(xlUp).Row
For b = c To 1 Step -1
If Cells(b, 2).Value = "lolo" Then
Rows(b).Select
Selection.Delete Shift:=xlUp
End If
Next b
End Sub
Configuration: Windows XP Internet Explorer 7.0
2 réponses
-
Pas de problème chez moi avec ton code
Il remplace "lili" par "titi" en colonne C et supprime les lignes où "lolo" apparait et ne fait rien dans les autres cas.
Pas d'incompatibilité de type à signaler -
Merci beaucoup Onesdf,
en effet comme Eric me l'a fait remarqué il fonctionne normalement.
Aprés ça remarque je l'ai essayé sur un nouveau classeur et surprise... pas d'erreur!
Suite à cet éssai j'ai voulu passer en résolu, impossible.
J'en ai fait part aux modos, pas de réaction. :-(
En tout cas merci encore pour t'étre interressé à mon probléme. ;-)
Bonne soirée.
