incompatibilité de type

[renault]

Bonjour a tous, j' ai un problème d'incompatibilité de type. En effet, mon programme me permet de copier 4 colonnes de nombres dans un workbook et de les coller dans un autre workbook. Le problème apparaît quand je modifie une colonne, par exemple je sélectionne toutes les cellules de la colonne à partir de la cinquième ligne, je copie et je colle dans la première cellule de ma colonne. Puis, je lance ma macro et là ça plante, ça m'affiche: "erreur d'éxecution '13', incompatibilité de type".

Voici mon code


While i <= 50
While j <= 20

If Cells(i, j).Value Like "*X*" And compteur = 1 Then
Cells(i + 3, j + 1).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks(ThisWorkbook.Name).Worksheets("Raideurs").Activate
Cells(5, 2).Select
ActiveSheet.Paste
Selection.ClearFormats
compteur = 2
Workbooks(Fichier_a_ouvrir).Worksheets("Acoustique").Activate
j = 1
i = 1
End If

If Cells(i, j).Value Like "*Y*" And compteur = 2 Then
Cells(i + 3, j + 1).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks(ThisWorkbook.Name).Worksheets("Raideurs").Activate
Cells(5, 3).Select
ActiveSheet.Paste
Selection.ClearFormats
compteur = 3
Workbooks(Fichier_a_ouvrir).Worksheets("Acoustique").Activate
j = 1
i = 1
End If

If Cells(i, j).Value Like "*Z*" And compteur = 3 Then
Cells(i + 3, j + 1).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks(ThisWorkbook.Name).Worksheets("Raideurs").Activate
Cells(5, 4).Select
ActiveSheet.Paste
Selection.ClearFormats
compteur = 4
Workbooks(Fichier_a_ouvrir).Worksheets("Acoustique").Activate
j = 1
i = 1
End If

If Cells(i, j).Value = "Fréq Hz" And compteur = 4 Then
Cells(i + 1, j).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks(ThisWorkbook.Name).Worksheets("Raideurs").Activate
Cells(5, 1).Select
ActiveSheet.Paste
Selection.ClearFormats
End If

j = j + 1
Wend
j = 1
i = i + 1
Wend



Merci de m'aider.
N'hésiter pas à me demander plus de précisions si je n'ai pas été assez clair.

 

[RENAUDER]

Re : incompatibilité de type

Bonjour,

Tu n'as pas quelque part des cellules fusionnées ?

 

[renault]

Re : incompatibilité de type

Non, j'ai bien vérifié, les cellules ne sont pas fusionnées.

Merci d'avoir pris le temps de me répondre.

 

[Pierrot93]

Re : incompatibilité de type

Bonjour Renault, Eric

tu devrais peut être nous dire quelle ligne se trouve surlignée en jaune lorsque tu cliques sur débogage après le message d'erreur.

bon après midi
@+

Edition : ligne de ton code vba

 

[RENAUDER]

Re : incompatibilité de type

Bonjour,
Peut-être rien à voir mais je vois qu'après ta copie
Cells(5, 1).Select
ActiveSheet.Paste

Tu n'as pas mis de Application.CutCopyMode = False
False = Annule le mode Couper ou Copier et supprime la marque de sélection

 

[renault]

Re : incompatibilité de type

Lors du débogage la ligne surlignée en jaune est la suivante:

If Cells(i, j).Value Like "*X*" And compteur = 1 Then

Merci.

 

[renault]

Re : incompatibilité de type

Salut Eric,

J'ai essayé ce que tu m'as dit avec : Application.CutCopyMode = False mais j 'ai toujours le même problème.

Merci.

 

[Banzai64]

Re : incompatibilité de type

Bonjour

Une bêtise ? OUI

Comparaison entre du texte et du numérique ?

 

[RENAUDER]

Re : incompatibilité de type

Bonjour,
je viens de faire un test avec ce bout de code et ça fonctionne.
Dans ma colonne A j'ai mis une valeur frXXkk et il la trouve bien.
Ton fichier est confidentiel ? sinon ça aide d'avoir les données.
Si il est trop gros, tu peux l'envoyer par mail.

Sub Test()
    Compteur = 1
    For i = 1 To 5
        If Cells(i, 1).Value Like "*X*" And Compteur = 1 Then
            MsgBox "ok"
        Else
        End If
    Next i
End Sub

 

[Banzai64]

Re : incompatibilité de type

re

Une autre bétise ? OUI

Au départ i et j valent 0 (zéro)
et cells (0,0) pas glop

 

[renault]

Re : incompatibilité de type

Bonjour banzai,

il n'y a que des nombres dans les colonnes mais normalement la commande cells(i,j).value ne fait pas de différence entre les deux. Je ne sais pas si je réponds à ta question.

Merci.

 

[renault]

Re : incompatibilité de type

Salut,

je n'ai pas mis mon code en entier sur le forum par soucis de clarté mais j'ai bien mis i=8 et j=1.

 

[renault]

Re : incompatibilité de type

Salut Eric,

d'abord je te remercie pour toutes tes suggestions, malheureusement je ne peux pas t'envoyer mon fichier par soucis de confidentialité. Sinon mon progamme fonctionne donc je pense que mon code est bon à part quand je fais un copier coller sur la colonne comme je l'ai expliqué dans mon premier message.

 

[Banzai64]

Re : incompatibilité de type

re

refais l'erreur et récupère toutes les infos que tu peux

le I le J et va vérifier ta cellule (format cellule, valeur)
dans la fenêtre execution fait ? cells(I,J) pour savoir son contenu
est ce au début de la macro ?

en direct change ce qui il y a dans cette cellule et relance la macro (F8)


moi je cale