Incompatibilité de type

[lufy50]

bonjour,

voila lorsque j'execute le code suivant :

Sheets("Feuil1").Activate
For counter = 1 To 1500
       [COLOR="Red"] If Cells(counter, 9).Value <> Cells(counter, 5).Value Then[/COLOR]        
Cells(counter, 9).Copy
Cells(counter, 5).Select
Selection.PasteSpecial Paste:=xlPasteValues
        End If
        Next counter

Le message incompatibilité de type apparait.

Je vous joindrait bien le fichier mais il est vraiment tros gros.

Merci de votre aide.

Bonne soirée.

 

[Pierrot93]

Re : Incompatibilité de type

Bonsoir Lufy

essaye comme ci dessous :

Dim counter As Integer
Sheets("Feuil1").Activate
For counter = 1 To 1500
    If Cells(counter, 9).Value <> Cells(counter, 5).Value Then
        Cells(counter, 9).Copy
        Cells(counter, 5).PasteSpecial Paste:=xlPasteValues
    End If
Next counter

bonne soirée
@+

 

[lufy50]

Re : Incompatibilité de type

Non ca ne fonctionne pas c'est la ligne ne rouge qui buggue...

 

[Pierrot93]

Re : Incompatibilité de type

Re

comprends pas trop chez moi cela fonctionne... tu n'aurais pas des cellules fusionnées ?

 

[lufy50]

Re : Incompatibilité de type

je viens de trouver le probleme : je demandais de comparer du texte et des chiffres, forcement ca buggue.
Merci pour ta reponse rapide !!!

Bonne soirée

 

[Pierrot93]

Re : Incompatibilité de type

Re

lorsque cela bogue, quelle est la valeur de "counter", tu l'as bien déclarée par une instruction "dim" ?

Dim counter As Integer

@+

 

[lufy50]

Re : Incompatibilité de type

oui je l'ai declarée au debut de la macro ...

 

[Pierrot93]

Re : Incompatibilité de type

Re

enfin, chez moi cela fonctionne aussi bien avec nombre que texte dans cellulule.. Si tu n'as plus de problème, c'est le principale

Edition : on pouvait faire un peu plus court...

Dim counter As Integer
Sheets("Feuil1").Activate
For counter = 1 To 1500
    If Cells(counter, 9).Value <> Cells(counter, 5).Value Then
        Cells(counter, 5).Value = Cells(counter, 9).Value
    End If
Next counter

bonne soirée.

 

[lufy50]

Re : Incompatibilité de type

Arff, un peu plus loin dans la programmation j'ai le meme probleme, mais ce coup ci je vois pas ou est le probleme : je demande juste une condition

For countera = 1 To 1500
If Cells(countera, 9).Value = 0 Or Cells(countera, 13).Value <> "" Then
Rows(countera).Delete
End If
Next countera

 

[Pierrot93]

Re : Incompatibilité de type

Bonjour Lufy

pas de problème chez moi, mais faudrait voir le contenu de tes cellules, par contre si tu supprimes des lignes il est préférable de commencer par la fin, car si le test s'avère exacte sur 2 lignes consécutives seule la première serait supprimée...

Sub test()
Dim countera As Integer
For countera = 1500 To 1 Step -1
    If Cells(countera, 9).Value = 0 Or Cells(countera, 13).Value <> "" Then
        Rows(countera).Delete
    End If
Next countera
End Sub

bonne journée
@+