ERREUR 13 : Incompatibilité / VBA

Version imprimable

Bonjour,

je suis nouveau sur le forum, et novice dans vba.

J'essaie de mettre en place une macro le but est de vérfier les données de la colonne A et de les remplacer par : Bon environnement / Mauvais environnement :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub regle() Dim cell as range For each cell in columns("A") If cell.value="304035" then cell.value="bon environnement" Elseif cell.value="305678" then Cell.value="mauvais environnement" End if End if Next End sub
Mais j'ai un message d'erreur : erreur d'exécution 13 : Incompatibilité type

Merci infiniment pour votre aide et conseil.

18/07/2018, 14h45
Thautheme

Bonjour Arsene, bonjour le forum,

Code:

For Each Cell In Columns("A").Cells
18/07/2018, 15h10
Menhir

Il aurait été plus judicieux de faire une copie du code que tu as tapé dans VBE étant donné que le code que tu présentes ici n'est visiblement pas passé par l'éditeur de VBA.

Citation:

Envoyé par arsene122

Mais j'ai un message d'erreur : erreur d'exécution 13 : Incompatibilité type

Quel ligne de code est signalée par le débugage ?

Au passage : tu as un End If en trop.
Mais ce n'est certainement pas ce qui provoque une incompatibilité de type.
18/07/2018, 15h14
arsene122

Merci à vous!
18/07/2018, 20h40
arsene122

Bonjour Menhir,

Effectivement vous avez-raison , la prochaine fois je mettrais directement le code en passant par l'éditeur.
Il s'agissait de la ligne : For Each Cell in columns ("A"). @ThauTheme m'a aidé avec sa réponse.

Merci ton conseil ;)

Bonjour,

j'ai encore besoin de votre aide. Dans la continuité de mon projet :
Il s'agit la qu'Exel arrive à lire les chiffres et le texte ex: 9887UIL09 des cellules de la colonne B pour les remplacer par le bon portefeuille
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 sub portf() Dim Cell As Range Dimi Vartexte As String For Each Cell In Columns("B").Cells If Cell.Value="9887LVE7" Then Cell.Value="cassandra" ElseIf Cell.Value="9876HJB8" Then Cell.Value="paul" End if Next End sub
le code s'éxecute mais ne change rien dans les cellules ne reconnaissant pas le texte inclus entre les chiffres.
Comment puis-je faire dans la déclaration de mes variables ?

merci d'avance

19/07/2018, 13h54
Menhir

Première chose que je suis obligé de répéter (une dernière fois) : montre le code que tu as écrit dans VBE.
Le code que tu présentes ici ne vient pas de VBE.

Citation:

Envoyé par arsene122

le code s'éxecute mais ne change rien dans les cellules ne reconnaissant pas le texte inclus entre les chiffres.

Sans doute parce que le texte contenu dans tes cellules et celui de ton code ne concordent pas.

Re,

Ton code est correct je ne vois pas où est le problème. Toutefois, si tu as beaucoup d'options un Select Case me paraît mieux adapté. Et puis, pourquoi parcourir toutes les cellules de la colonne B ?
Essaie comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub portf()
 
Dim Cell As Range
Dim DL As Long
Dim VarTexte As String
 
DL = Cells(Application.Rows.Count, "B").End(xlUp).Row
For Each Cell In Range("B1:B" & DL)
    If Cell.Value <> "" Then
        VarTexte = Cell.Value
        Select Case VarTexte
            Case "9887LVE7"
                Cell.Value = "cassandra"
            Case "9876HJB8"
                Cell.Value = "paul"
        End Select
    End If
Next Cell
End Sub

Un peu plus simple :

Code:

1
2
3
4
5
6
7
8
9
10
Sub portf()
Dim Cell As Range
 
For Each Cell In Range("B1", Cells(Application.Rows.Count, "B").End(xlUp))
    Select Case Cell.Value
        Case "9887LVE7" : Cell.Value = "cassandra"
        Case "9876HJB8" : Cell.Value = "paul"
    End Select
Next Cell
End Sub

19/07/2018, 17h46
arsene122

Bonjour,

Je vous remercie pour votre aide, j'essaie ça et je vous tiens au courant
19/07/2018, 21h09
arsene122

Bonsoir,

Désolé de vous revenir que maintenant..
Vos deux codes fonctionnent merci beaucoup!
Je ne comprends toujours pas ce qui a pu clocher avec mon code initial mais bon/ Je continu de creuser..

Passez une bonne soirée