Remplir une colonne en fonction de la précédente.
Résolu
Statisticien
Messages postés
26
Statut
Membre
-
benol3 Messages postés 718 Statut Membre -
benol3 Messages postés 718 Statut Membre -
Bonjour à toutes et à tous,
De nouveau un nouveau petit problème.
Dans ma feuille excel, la colonne B comporte la devise, et la colonne C comporte le cours. Je veux que la colonne C soit remplie en fonction de la colonne B. J'ai appliqué le code suivant mais ça ne marche pas :
Sub Devise()
'Calcul du cours
Windows("classeur2.xls").Activate
Sheets("feuil1").Select
Dim i As Integer
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To DernLigne
If Range("B" & i).Value = " USD" Then Range("C" & i).Value = 8.2
If Range("B" & i).Value = " EUR" Then Range("C" & i).Value = 11.2
If Range("B" & i).Value = " CHF" Then Range("C" & i).Value = 8.2
.
.
.
.
Next
End Sub
j'ai appliqué celui là aussi, mais en vain :
If Cells(i, 2).Value = " EUR" Then Cells(i, 3).Value = 11.2
If Cells(i, 2).Value = " CHF" Then Cells(i, 3).Value = 8.2
Une idée peut être ? Je vous remercie d'avance.
De nouveau un nouveau petit problème.
Dans ma feuille excel, la colonne B comporte la devise, et la colonne C comporte le cours. Je veux que la colonne C soit remplie en fonction de la colonne B. J'ai appliqué le code suivant mais ça ne marche pas :
Sub Devise()
'Calcul du cours
Windows("classeur2.xls").Activate
Sheets("feuil1").Select
Dim i As Integer
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To DernLigne
If Range("B" & i).Value = " USD" Then Range("C" & i).Value = 8.2
If Range("B" & i).Value = " EUR" Then Range("C" & i).Value = 11.2
If Range("B" & i).Value = " CHF" Then Range("C" & i).Value = 8.2
.
.
.
.
Next
End Sub
j'ai appliqué celui là aussi, mais en vain :
If Cells(i, 2).Value = " EUR" Then Cells(i, 3).Value = 11.2
If Cells(i, 2).Value = " CHF" Then Cells(i, 3).Value = 8.2
Une idée peut être ? Je vous remercie d'avance.
A voir également:
- Quel est le mot formé par les 6 dernières lettres de la colonne code ?
- Code ascii - Guide
- Déplacer colonne excel - Guide
- Trousseau mot de passe iphone - Guide
- Mot de passe - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
non le code ne génère aucune erreur, c'est jusque la feulle ne subit aucune mise à jours après exécution du code.
J'ai tester chez moi et cela marche même avec un espace devant les devises.
Tu n'est pas obligé de passer par macro pour remplir les cellules, des SI imbriqués peuvent faire l'affaire Tout dépend de si tu as beaucoup de devises ou non...
Exemple de formule pour C2 : =SI(B2=" USD";8,2;SI(B=" EUR";11,2;SI(B2=" CHF";8,2;0)))
Sinon je ne vois pas pourquoi le code ne marche pas, montres nous ton fichier via cjoint.com