Test colonneA et renvoie d'une autres valeur déterminée colonneB
Résolu/Fermé
bassmart
Messages postés
277
Date d'inscription
jeudi 19 février 2015
Statut
Membre
Dernière intervention
30 août 2022
-
Modifié par bassmart le 13/03/2015 à 16:02
bassmart Messages postés 277 Date d'inscription jeudi 19 février 2015 Statut Membre Dernière intervention 30 août 2022 - 16 mars 2015 à 14:18
bassmart Messages postés 277 Date d'inscription jeudi 19 février 2015 Statut Membre Dernière intervention 30 août 2022 - 16 mars 2015 à 14:18
A voir également:
- Test colonneA et renvoie d'une autres valeur déterminée colonneB
- Test pc - Guide
- Renvoie d'appel ooredoo ✓ - Forum Mobile
- Déplacer une colonne excel - Guide
- Test ram - Guide
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
1 réponse
Frenchie83
Messages postés
2239
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
28 janvier 2023
335
14 mars 2015 à 05:58
14 mars 2015 à 05:58
Bonjour
Bonne journée
cdlt
Sub fournisseur()
Dim fournisseur As String
Dim numéro As String
Dim i As Long
For i = 8 To [A8].End(xlDown).Row
On Error Resume Next
On Error GoTo 0
numéro = Mid(Cells(i, 1), InStr(1, Cells(i, 1), "-", 1), 5)
If numéro = "-000-" Then
fournisseur = "Fourn1"
ElseIf numéro = "-001-" Then
fournisseur = "Fourn2"
ElseIf numéro = "-002-" Then
fournisseur = "Fourn3"
ElseIf numéro = "-003-" Then
fournisseur = "Fourn4"
ElseIf numéro = "-004-" Then
fournisseur = "Fourn5"
ElseIf numéro = "-005-" Then
fournisseur = "Fourn6"
ElseIf numéro = "-006-" Then
fournisseur = "Fourn7"
ElseIf numéro = "-007-" Then
fournisseur = "Fourn8"
ElseIf numéro = "-008-" Then
fournisseur = "Fourn9"
ElseIf numéro = "-009-" Then
fournisseur = "Fourn10"
ElseIf numéro = "-010-" Then
fournisseur = "Fourn11"
ElseIf numéro = "-011-" Then
fournisseur = "Fourn12"
ElseIf numéro = "-012-" Then
fournisseur = "Fourn13"
ElseIf numéro = "-013-" Then
fournisseur = "Fourn14"
End If
Cells(i, 2) = fournisseur
Next i
End Sub
Bonne journée
cdlt
16 mars 2015 à 12:55
Ça fonctionne très bien!
Peux-tu m'expliquer la ligne:
Merci encore!
Modifié par bassmart le 16/03/2015 à 13:17
J'ai appliquer cette macro sur une 2 autres feuilles, ça marche bien pour une des 2 feuilles, mais pas pour l'autre!
En fait, j'ai copié la macro, j'ai fait les changements dans la macro et j'ai changer le nom 2ième macro.
La seule différence, c'est que ma première colonne est la colonne B. J'ai donc remplacé le par , mais j'ai une erreur d'exécution 5 argument ou appel de procédure incorrect.
Pourquoi?
Merci!
Modifié par bassmart le 16/03/2015 à 14:18
J'ai finalement trouvé l'erreur!
J'ai changé dans l'expression le 1 pour un 2 et dans l'expression de la fin remplacer le 2 pour un 3 et ça fonctionne!
Merci beaucoup!