[VBA_Excel] Incompatibilité de type.

Résolu/Fermé
chtilou Messages postés 1696 Date d'inscription mardi 22 janvier 2008 Statut Membre Dernière intervention 30 avril 2012 - 28 mai 2008 à 19:13
chtilou Messages postés 1696 Date d'inscription mardi 22 janvier 2008 Statut Membre Dernière intervention 30 avril 2012 - 28 mai 2008 à 22:12
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

2 réponses

onesdf Messages postés 375 Date d'inscription mercredi 21 mai 2008 Statut Membre Dernière intervention 17 octobre 2008 120
28 mai 2008 à 22:05
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
0
chtilou Messages postés 1696 Date d'inscription mardi 22 janvier 2008 Statut Membre Dernière intervention 30 avril 2012 523
28 mai 2008 à 22:12
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.
0