Changer valeur colonne en fonction d'un mot

Lili189 · 20 Novembre 2013

Bonjour,

J'aimerais une aide pour une macro excel qui me permettrait de ne plus faire cela "à la main"

J'ai un fichier avec dans la colonne G une liste de mot "POP", "MACO" "PLI" "OLI" et "OVAI"

Dans la colonne A, j'ai une lettre et un chiffre : A1,A1,B1,B1.

En fait, à chaque fois que j'ai POP je voudrais que la ligne en dessous d'elle ou il y a les valeurs MACO et OVAI,
cela change la colonne A avec un chiffre supérieur à la valeur du dessus.

Exemple : AVANT MACRO

A1 ------------- POP
A1 ------------- MACO

là on a 2 fois A1.
Moi je voudrais que ca donne cela : AVEC MACRO

A1 ------------- POP
A2 ------------- MACO

le but est de ne pas avoir de doublon A1 A1 B1 B1
mais que cela donne A1 A2 B1 B2 mais uniquement pour les valeurs MACO et OVAI. (pour pli et oli, on laisse le doublon E1 E1)

Est-ce possible ?

Merci d'avance de votre aide.

titiborregan5 · 20 Novembre 2013

Re : Changer valeur colonne en fonction d'un mot

Bonjour Lili, le forum,

essaie avec ce code :

Code:

Sub t()
For i = 7 To Range("a7").End(xlDown).Row
If Cells(i, 1) = Cells(i + 1, 1) And (Cells(i, 7) = "POP" Or Cells(i, 7) = "MACO") Then
Cells(i + 1, 1) = Left(Cells(i, 1), 1) & "2"
End If
Next
End Sub

Chez moi ça marche par contre je n'ai pas compris clairement tes critères de mots "pop" "maco" "ovai"

Bon courage

Lili189 · 20 Novembre 2013

Re : Changer valeur colonne en fonction d'un mot

Bonjour titiborregan5,

Merci de votre réponse.
Ca correspond à ce que je voulais.

Merci beaucoup pour cette macro qui me facilitera la vie.

Bonne soirée.

JNP · 20 Novembre 2013

Re : Changer valeur colonne en fonction d'un mot

Bonjour
Logiquement, elle ne fonctionne pas pour D1 D1... Il manque un test
Sinon par formule

Code:

=SI(ET(A6=A7;OU(G7="POP";G7="MACO";G7="OVAI"));GAUCHE(A7;1)(DROITE(A7;1)+1);A7)

en D7 & à tirer vers le bas, il suffit ensuite de faire un copier/coller de valeurs...
Bonne suite

Changer valeur colonne en fonction d'un mot

Lili189

XLDnaute Junior

Pièces jointes

titiborregan5

XLDnaute Accro

Lili189

XLDnaute Junior

JNP

XLDnaute Barbatruc

Discussions similaires