remplir une cellule en fonction de la colonne précedente
1 réponse
xavier
Bonjour =E0 tous,
Encore une fois bloqu=E9 pour rien mais je ne trouve pas.
J'aimerais remplir des donn=E9es dans une cellule en=20
fonction du contenue de la cellule de la colonne pr=E9c=E9dente
par exemple si B2 =3D 12 alors C2=3D PPB
j'ai =E9cris cette macro et cela ne fonctionne pas.
Pourriez-vous me donner un coup de main?
Merci
Dim rangee As Long
For rangee =3D 2 To Range("E65535").End(xlUp).Row
Select Case Cells(rangee, 25)
Case "A","Z","E"
Cells(rangee, 26) =3D "PPB"
Case "B"
Cells(rangee, 26) =3D "PPC"
Case "C"
Cells(rangee, 26) =3D "PPR"
Case Else
End Select
Next rangee
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
xavier
Re-bonjour,
J'ai trouvé. Ma colonne source était le résultat d'un autre formule.... Donc je dois la copié coller en collant que les valeurs et cela fonctionne.....
Désolé pour le dérangement.
C'est bien la première fois que j'arrive à m'auto- répondre.. :-) (après une après-midi de recherche...)
Salut.
Xavier
-----Message d'origine----- Bonjour à tous,
Encore une fois bloqué pour rien mais je ne trouve pas. J'aimerais remplir des données dans une cellule en fonction du contenue de la cellule de la colonne précédente
par exemple si B2 = 12 alors C2= PPB
j'ai écris cette macro et cela ne fonctionne pas. Pourriez-vous me donner un coup de main?
Merci
Dim rangee As Long For rangee = 2 To Range("E65535").End(xlUp).Row
Select Case Cells(rangee, 25) Case "A","Z","E" Cells(rangee, 26) = "PPB" Case "B" Cells(rangee, 26) = "PPC" Case "C" Cells(rangee, 26) = "PPR" Case Else End Select Next rangee
Xavier .
Re-bonjour,
J'ai trouvé.
Ma colonne source était le résultat d'un autre formule....
Donc je dois la copié coller en collant que les valeurs et
cela fonctionne.....
Désolé pour le dérangement.
C'est bien la première fois que j'arrive à m'auto-
répondre..
:-) (après une après-midi de recherche...)
Salut.
Xavier
-----Message d'origine-----
Bonjour à tous,
Encore une fois bloqué pour rien mais je ne trouve pas.
J'aimerais remplir des données dans une cellule en
fonction du contenue de la cellule de la colonne
précédente
par exemple si B2 = 12 alors C2= PPB
j'ai écris cette macro et cela ne fonctionne pas.
Pourriez-vous me donner un coup de main?
Merci
Dim rangee As Long
For rangee = 2 To Range("E65535").End(xlUp).Row
Select Case Cells(rangee, 25)
Case "A","Z","E"
Cells(rangee, 26) = "PPB"
Case "B"
Cells(rangee, 26) = "PPC"
Case "C"
Cells(rangee, 26) = "PPR"
Case Else
End Select
Next rangee
J'ai trouvé. Ma colonne source était le résultat d'un autre formule.... Donc je dois la copié coller en collant que les valeurs et cela fonctionne.....
Désolé pour le dérangement.
C'est bien la première fois que j'arrive à m'auto- répondre.. :-) (après une après-midi de recherche...)
Salut.
Xavier
-----Message d'origine----- Bonjour à tous,
Encore une fois bloqué pour rien mais je ne trouve pas. J'aimerais remplir des données dans une cellule en fonction du contenue de la cellule de la colonne précédente
par exemple si B2 = 12 alors C2= PPB
j'ai écris cette macro et cela ne fonctionne pas. Pourriez-vous me donner un coup de main?
Merci
Dim rangee As Long For rangee = 2 To Range("E65535").End(xlUp).Row
Select Case Cells(rangee, 25) Case "A","Z","E" Cells(rangee, 26) = "PPB" Case "B" Cells(rangee, 26) = "PPC" Case "C" Cells(rangee, 26) = "PPR" Case Else End Select Next rangee
