Identification @. Incompatibilité type

Version imprimable

Bonjour, je vous écris pour vois si vous pouvez m’illuminer avec vos connaissances :D. J'utilise une nouvelle fonctionnalité pour moi et c'est le "format" pour copier le valeur de la colonne 1 dans la colonne 13 et après ajouter devant les caractères "CLE" devant le contenue de la cellule.
Le problème est-ce que ça me donne "incompatibilité de type" juste après le For
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 'Etape 3: déclaration variables pour trouver ligne clè identifié comme "@@ " et l'introduire dans la colonne 13 avec "CLE " devant le contenu. DligneVid = Range("A" & Rows.Count).End(xlUp).Row 'ligne déja déclare avant dans la boucle eliminer lignes vides PligneB = Range("A35").End(xlDown).Row 'aussi variable déja utilisée Dim Cl As String Cl = "@@ " For Cl = DligneVid To PligneB Step -1 If Format(Left(Cells(Cl, 1), 3)) Then Cells(Cl, 13).Value = Cells(Cl, 1).Value Format(Left(Cells(Cl, 13), "CLE*")).Value End If Next Cl

03/04/2017, 14h18
riaolle
Bonjour,
L'erreur "incompatibilité de type" indique que tu as déclaré une variable selon un certain type de variable, mais qu'ensuite, tu l'utilises pour des fonctionnalités qui n'existent pas pour ce type de variable. Dans ton cas, tu déclares
Code:

1 2 Dim Cl As String Cl = "@@
String étant une chaine de caractères. Jusqu'ici, tout va bien.
Ensuite tu veux faire une bouclé For sur Cl. La syntaxe de la boucle For est la suivante :
Code:

1 2 3 For i = 1 To 3 '... Next i
Qui veut dire : pour i allant de 1 à 3 faire ...
Or, toi tu écris :
Code:

1 2 3 For Cl = DligneVid To PligneB Step -1 '... Next Cl
Soit, pour Cl allant de DligneVid à PligneB faire ... Sachant que DligneVid et PligneB sont des entier, mais Cl une chaine de caractère. Ca ne va pas !
Pouruqoi déclares-tu Cl comme une chaine de caractère? Et pourquoi lui attribus-tu "@@" au début? T n'utilises jamais le fait que Cl vaut "@@" au début.
03/04/2017, 14h29
mvgalli

AH. J'ai mis Cl comme basse de ma boucle dans la ligne 9. Je pensai aussi utiliser les caractères dans la ligne 11. Pour ajouter au résultat les caractères "CLE". je continue a chercher. Merci
03/04/2017, 14h32
riaolle

Code:

If Format(Left(Cells(Cl, 1), 3)) Then

Peux-tu nous dire, en français, quelle est la condition que tu veux vérifier? La fonction Format renvoie une chaine de caractère (String). Dans ta condition, tu ne la compares à rien. Quelle est donc ta condition?

Code:

Format(Left(Cells(Cl, 13), "CLE*")).Value

Que veux-tu faire ici? La propriété .Value ne s'applique pas à une chaine de caractère (mais à un Range, par exemple). Ensuite, Format est une fonction qui renvoie qqc. Quand tu utilises une fonctin qui renvoie qqc, il faut faire quelque chose avec ce qui est renvoyé. Tu ne peux pas juste écrire la fonction telle quelle. En maths, c'est comme si tu écrivais 1 + 1 sur une ligne sans rien. En maths, tu utilises toujours une signe égal quand tu appliques des fonctions, tu écriras par exemple : x = 1 + 1. C'est pareil en VBA. Quand tu utilises une fonction, tu l'utilies pour récupérer ce qu'elle renvoie.
Si je comprend bien, ici c'est le moment où tu veux ajouter le mot "CLE" devant ta valeur. Pourquoi écris-tu "CLE*"? De plus, relis bien l'aide microsoft sur la fonction Left. Tu n'utilises pas la bonne syntaxe : le deuxième argument est un entier.
Si tu veux rajouter "CLE " à l'avant du mot, il y a plus simple :

Code:

Cells(Cl, 13).Value = "CLE " & Cells(Cl, 1).Value

Ici tu concatènes "CLE " et la valeur de la cellule en colonne 1. La valeur de la cellule de la colonne 13 est alors égale à cette concaténeation.
03/04/2017, 14h38
riaolle

Citation:

Envoyé par mvgalli

AH. J'ai mis Cl comme basse de ma boucle dans la ligne 9. Je pensai aussi utiliser les caractères dans la ligne 11. Pour ajouter au résultat les caractères "CLE". je continue a chercher. Merci

Quand tu fais une boucle, tu n'as pas besoin de mettre une "base". C'est déjà dans la syntaxe de la boucle, puisque tu dis : pour i allant de x à y.

Je viens d'essayer un autre solution et j'arrive a faire tourner la boucle mais les caractères "@@ " contrairement à ce que je pensai, ne les reconnais pas. Tu sauras me dire une autre façon de identifier des qu'il a 2 numéros plus un espace? Voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
'Etape 3: déclaration variables pour trouver ligne clè identifié comme "@@ " et l'introduire dans la colonne 13 avec "CLE " devant le contenu.
DligneVid = Range("A" & Rows.Count).End(xlUp).Row 'ligne déja déclare avant dans la boucle eliminer lignes vides
PligneB = Range("A35").End(xlDown).Row 'aussi variable déja utilisée
Dim Cl As Range
'Set Cl = "@@ " 'identification deux chiffres plus espace vide, ex: "01 "
 
For Each Cl In Range(Cells(PligneB, 1), Cells(DligneVid, 1))
    Select Case Cl
    Case "@@ "
            Cells(Cl.Row, 13) = Cells(Cl.Row, 1).Value
            Insert.Format (Left(Cells(Cl, 13), "CLE *"))
    End Select
Next Cl

03/04/2017, 14h51
mvgalli

Pardon, je n'ai pas encore lu ta réponse. Je vais voir ça et je reviens vers toi. Merci beaucoup!.
03/04/2017, 16h00
riaolle
Je ne sais pas si c'est la meilleur méthode, mais voici peut-être un moyen de vérifier que la valeur de la cellule est sous la forme "chiffre chiffre espace reste":
utiliser la fonction Split. Si la cellule est sous le bon format, ceci :

Code:

isNumeric(Split(cel.Value, " "))

renverra True.
Ensuite, il faudra vérifier qu'il y a bien que 2 chiffres :

Code:

Len(Split(cel.Vlue, " "))

doit renvoyer 2.

Mis bout à bout :
Code:

1 2 3 If isNumeric(Split(cel.Value, " ")) = True And Len(Split(cel.Vlue, " ")) = 2 Then ' on fait ce qu'on a à faire End If

Bonjour, merci pour toutes les aides que vous m'envoyez. Je reviens sur mon erreur d'incompatibilité de type. En effet ça ne lui plait pas la variable string dans le For mais pour l'instant je ne sais pas comment la faire passer. Voici mon code
Code:

1 2 3 4 5 6 7 8 9 DligneVid = Range("A" & Rows.Count).End(xlUp).Row 'ligne déja déclare avant dans la boucle éliminer lignes vides PligneB = Range("A35").End(xlDown).Row 'aussi variable déjà utilisée Dim Cl As String For Cl = DligneVid To PligneB Step -1 If IsNumeric(Split(Left(Cells(Cl, 1), 2))) = True And Len(Split(Left(Cells(Cl, 1), 1), " ")) Then Cells(Cl, 13).Value = Cells(Cl, 1).Value Insert.Left(Cells(Cl, 13), "CLE *").Value End If

04/04/2017, 11h37
riaolle

Bonjour,
Je te renvoie au post #2 qui explique pourquoi tu es confrontée à cette erreur.
Pourquoi veux-tu que Cl soit une chaine de caractère? Il n'y a aucune raison pour laquelle tu devrais déclarer Cl en tant que String. Déclare -le en temps que Long et tout ira bien :)

De plus, pourquoi utilises-tu Insert? La concaténation des valeurs me paraît beaucoup plus simple :

Code:

Cells(Cl, 13).Value = "CLE " & Cells(Cl, 1).Value

Oui, en effet. Maintenant j'ai encore l'incompatibilité de type dans les conditions. Je n'arrive pas a voir ce qui arrive: voici le code.

Code:

1
2
3
4
5
6
7
8
9
10
'Etape 3: déclaration variables pour trouver ligne clè identifié comme "@@ " et l'introduire dans la colonne 13 avec "CLE " devant le contenu.
DligneVid = Range("A" & Rows.Count).End(xlUp).Row 'ligne déja déclare avant dans la boucle eliminer lignes vides
PligneB = Range("A35").End(xlDown).Row 'aussi variable déja utilisée
Dim Cl As Long
 
For Cl = DligneVid To PligneB Step -1
    If IsNumeric(Split(Left(Cells(Cl, 1), 2))) = True And Split(Mid(Cells(Cl, 1), 3, 1), " ") Then
       Cells(Cl, 13).Value = "CLE " & Cells(Cl, 1).Value
    End If
Next Cl

04/04/2017, 13h12
riaolle

Oui, j'ai fait une faute dans mon exposé sur Split.

Code:

Split(cel.Value, " ")

renvoie un tableau. Par exemple Split("1/2/3", "/") renvoie un tableau dont les valeurs sont 1, 2 et 3.
Nous voulons savoir si les éléments avant le premier espace sont numériques, donc on regarde le premier élément du tableau. La condition sera donc :

Code:

If IsNumeric(Split(Cells(Cl, 1).Value, " ")(0))= True

Le premier élément d'un tableau en VBA est l'élément n°0.
Pourquoi utilises-tu Left? As-tu bien compris ce que fait Split?

L'autre condition pour savoir si on a bien 2 chiffres avant l'espace sera donc:

Code:

Len(Split(Cells(Cl, 1).Value, " ")(0)) = 2

Oui, en effet "Left" je l'utilise pour la lecture de la première position. Mais Split je voie que c'est plus complet et je n'arrive pas bien a voir comment fonctionne au complet. Au fait je veux, comme tu a bien interprété, que la fonction reconnaisse les deux premières chiffres et que après s'il y a un espace (then) elle transmet le contenu à la colonne 13, avec les caractères "CLE " devant.

Voici le code qui me donne comme erreur d’exécution 9: "l'indice n'appartient pas à la sélection" (au moment de passer sur une cellule vide)
Code:

1 2 3 4 5 6 7 8 9 10 'Etape 3: déclaration variables pour trouver ligne clè identifié comme "@@ " et l'introduire dans la colonne 13 avec "CLE " devant le contenu. DligneVid = Range("A" & Rows.Count).End(xlUp).Row 'ligne déja déclare avant dans la boucle eliminer lignes vides PligneB = Range("A35").End(xlDown).Row 'aussi variable déja utilisée Dim Cl As Long For Cl = DligneVid To PligneB Step -1 If IsNumeric(Split(Cells(Cl, 1).Value, " ")(0)) = True And Len(Split(Cells(Cl, 1).Value, " ")(0)) = 2 Then Cells(Cl, 13).Value = "CLE " & Cells(Cl, 1).Value End If Next Cl

En effet, si la cellule est vide le tableau que renvoie Split est vide. Donc Split(..., " ")(0) n'existe pas. Il faut donc que tu vérifie auparavant que la cellule n'est pas vide :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
'Etape 3: déclaration variables pour trouver ligne clè identifié comme "@@ " et l'introduire dans la colonne 13 avec "CLE " devant le contenu.
DligneVid = Range("A" & Rows.Count).End(xlUp).Row 'ligne déja déclare avant dans la boucle eliminer lignes vides
PligneB = Range("A35").End(xlDown).Row 'aussi variable déja utilisée
Dim Cl As Long
 
For Cl = DligneVid To PligneB Step -1
    If Cells(Cl, 13).Value <>"" Then
        If IsNumeric(Split(Cells(Cl, 1).Value, " ")(0)) = True And Len(Split(Cells(Cl, 1).Value, " ")(0)) = 2 Then
           Cells(Cl, 13).Value = "CLE " & Cells(Cl, 1).Value
        End If
    End If
Next Cl

04/04/2017, 15h10
mvgalli

J'ai un soucis, c'est que le premier if doit forcement avoir quelque chose. L'espion me dit que les cellules sont <> de "" mais dans l’exécution elle n'entre pas dans la deuxième if. Comme si tout était "". Une idée de ce qui peut-être mal? Amicalement,
04/04/2017, 15h20
Invité

Bonjour,
si tu nous éclairais sur la finalité peut-être?

car pour tout dire j'ai rien compris!

Peux-tu essayer :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'Etape 3: déclaration variables pour trouver ligne clè identifié comme "@@ " et l'introduire dans la colonne 13 avec "CLE " devant le contenu.
DligneVid = Range("A" & Rows.Count).End(xlUp).Row 'ligne déja déclare avant dans la boucle eliminer lignes vides
PligneB = Range("A35").End(xlDown).Row 'aussi variable déja utilisée
Dim Cl As Long
Dim i As Integer
i = 0
 
For Cl = DligneVid To PligneB Step -1
    If Cells(Cl, 13).Value <>"" Then
        i = i + 1
        If IsNumeric(Split(Cells(Cl, 1).Value, " ")(0)) = True And Len(Split(Cells(Cl, 1).Value, " ")(0)) = 2 Then
           Cells(Cl, 13).Value = "CLE " & Cells(Cl, 1).Value
        End If
    End If
Next Cl
MsgBox i

Et nous dire ce que donne la msgbox, stp?

04/04/2017, 15h30
mvgalli

Et bien ça donne 0 car il n'entre pas dans i. J'ai essayé de vous expliquer que la boucle reconnais comme si toutes les cellules étaient vides; c'est ça que je trouve étrange. Désole pour ne pas pouvoir vous expliquer mieux :oops:.
04/04/2017, 15h35
riaolle

C'est pas dans la colonne 13 que tu voulais mettre une valeur? A ce moment-là, elle est vide au début, non? Ce ne serait pas plutôt la colonne 1 qu'il faudrait vérifier?

Code:

If Cells(Cl, 1).Value <>"" Then

Pardon car je n'ai pas pu répondre avant. Merci infiniment pour ton aide! ça y est ça fonctionne. voici le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
'Etape 3: déclaration variables pour trouver ligne clè identifié comme "@@ " et l'introduire dans la colonne 13 avec "CLE " devant le contenu.
DligneVid = Range("A" & Rows.Count).End(xlUp).Row 'ligne déja déclare avant dans la boucle eliminer lignes vides
PligneB = Range("A35").End(xlDown).Row 'aussi variable déja utilisée
Dim Cl As Long
 
For Cl = DligneVid To PligneB Step -1
    If Cells(Cl, 1).Value <> "" Then
        If IsNumeric(Split(Cells(Cl, 1).Value, " ")(0)) = True And Len(Split(Cells(Cl, 1).Value, " ")(0)) = 2 Then
           Cells(Cl, 13).Value = "CLE " & Cells(Cl, 1).Value
        End If
    End If
Next Cl