Discussion :

[Samsams]

Bonjour à tous,

Etant débutant en vba je n'arrive pas à me sortir de mon casse tête ...

L'idée est :

Dans une colonne A je dispose de différents noms,
je souhaite que dans une colonne E on affiche :
*1 lorsque le nom commence par ABC
*2 lorsque le nom finit par ENT
*3 pour les autres cas
Je souhaite étendre cette formule jusqu'à la dernière ligne.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Hyp()
For i = 21 To DernLigne
 
Next
Cells(i, 1) = IIf((Left(Cells(i, 5), 3) = "ABC"), "1", IIf((Right(Cells(i, 5), 3) = "ENT"), "2", "3"))
 
DernLigne = Range("E" & Rows.Count).End(xlUp).Row
Range("A21").AutoFill Destination:=Range("A21:A" & DernLigne)
 
End Sub

Mais ça ne fonctionne pas ...

Merci pour votre aide !

[mjpmjp]

bonjour,
tu mélange tout !!!

tu n'as pas besoin d'écrire une formule dans des cellules puisque tu traite (affiche) en direct avec VBA

si tu veux vraiment écrire une formule style : "=SI(..." utilise ".FormulaLocal" avec VBA ou en direct avec Excel

autre chose ,
1) il n'y a rien dans ta boucle
2) tu utilise la variable DernLigne et la ligne de code qui la détermine est après

@+JP

[mjpmjp]

bonjour,
donc en direct dans excel , dans la cellule E21
tu écris cette formule :

=SI(GAUCHE($A21;3)="ABC";SI(DROITE(A21;3)="ENT";$A21;"");"")

@+JP

[mjpmjp]

re,
ou alors , avec VBA :

Code :

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

1
2
3
4
5
6
7
 
Private Sub Hyp()
    DernLigne = Range("A" & Rows.Count).End(xlUp).Row
    For i = 21 To DernLigne
        Range("E" & i).FormulaLocal = "=SI(GAUCHE($A" & i & ";3)=" & Chr(34) & "ABC" & Chr(34) & ";SI(DROITE(A" & i & ";3)=" & Chr(34) & "ENT" & Chr(34) & ";$A" & i & ";" & Chr(34) & Chr(34) & ");" & Chr(34) & Chr(34) & ")"
    Next
End Sub

@+JP

[Samsams]

Salut JP,

Merci pour tes réponses.

Je passe par VBA car j'ai déjà une première macro qui vient m'extraire des données d'un logiciel et je veux ajouter une info lorsque je lance la macro...

Je pense par contre, que ta formule Excel est incomplète ...

Ce serait plutôt ça :

SI(GAUCHE($A21;3)="ABC";1;SI(DROITE(A21;3)="ENT";2;3)) mais je n'arrive pas à le mettre en VBA.

Une question à quoi sert Chr(34) dans ta boucle VBA ?

Merci à toi !

[mjpmjp]

bonjour,
j'avais pas compris
si tu veux mettre 1,2,3

Code :

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

1
2
3
4
5
6
7
 
Private Sub Hyp()
    DernLigne = Range("A" & Rows.Count).End(xlUp).Row
    For i = 21 To DernLigne
        Range("E" & i).FormulaLocal = "=SI(GAUCHE($A" & i & ";3)=" & Chr(34) & "ABC" & Chr(34) & ";1;SI(DROITE(A" & i & ";3)=" & Chr(34) & "ENT" & Chr(34) & ";2;3))"
    Next
End Sub

chr(34) représente "
c'est le " qui doit être vu dans la formule

@+JP