Discussion :

[arsene122]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Thautheme]

Bonjour Arsene, bonjour le forum,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each Cell In Columns("A").Cells

[arsene122]

Merci à vous!

[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

[arsene122]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

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.

[Thautheme]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

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.