Condition Macro Excel 2

Bonjour, un nouveau problème s'offre à moi sur ma Macro.
Concernant là encore les conditions, mais en plus simple.
Mais j'ai encore du mal, je suis débutant, j'apprends petit à petit.
Donc concernant mon problème.

J'ai une colonne excel appelé AA dans la feuille 2, ou il y a marqué dans chaque cellule

"N&B" ou "couleur"

Et donc j'aimerais remplir une nouvelle colonne à partir de ces données dans la feuille "Exporté" colonne "X"

Concrètement si dans une cellule AA il y a marqué "N&B" j'aimerais que la cellule se transforme en "FALSE" dans la cellule correspondante

et si la cellule contient "couleur" que la cellule se transforme en "TRUE"


Exemple:

Colonne AA3 feuille 2 = N&B
alors je veux que la colonne X3 feuille "Exporté" = FALSE

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sheets("Feuil2").Select Range("AA2:AA1000").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy   Sheets("Export").Select Range("X2").Select ActiveCell.Offset(1, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False   Sheets("Export").Select Range("X2").Select If [X = Couleur] Then [X=TRUE] ElseIf [X=N&B]] Then [X= FALSE]   End If

---

Mais cela n'a pas fonctionné ..
Comment dois je procédé?

Bonjour EnzoExcel,

Je ne possède sûrement pas la meilleure des solutions, mais tu peux parcourir ta colonne jusqu'à une ligne (si tu la connais) ou bien jusqu'à ce que tu rencontres une cellule vide.

Tu peux essayer le code suivant dans le cas d'une ou tu procèdes jusqu'à ce qu'une cellule de ta colonne est vide :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim sh As Worksheet Dim Y As Integer Dim X As Integer   Set sh = ActiveSheet 'Tu remplaces ici la valeur de Y par la ligne ou se situe le début des informations à modifier Y = 2 'Tu remplaces ici la valeur de X par le numéro de la colonne dans laquelle tu veux travailler, pour D ça sera par exemple 4 X = 4 While sh.Cells(Y, X).Value <> "" If sh.Cells(Y,X).Value = "N&B" Then sh.Cells(Y,X).Value = "FALSE" If sh.Cells(Y,X).Value = "couleur" Then sh.Cells(Y.X).Value = "TRUE" Y = Y + 1 Wend

---

Dans le cas ou tu connais la dernière ligne de ta colonne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim sh As Worksheet Dim Y As Integer Dim X As Integer Dim LastRow As Integer   Set sh = ActiveSheet 'Tu remplaces ici la valeur de LastRow par ta dernière ligne, ici 10 LastRow = 10 'Tu remplaces ici la valeur de Y par la ligne ou se situe le début des informations à modifier Y = 2 'Tu remplaces ici la valeur de X par le numéro de la colonne dans laquelle tu veux travailler, pour D ça sera par exemple 4 X = 4 While Y <= LastRow If sh.Cells(Y,X).Value = "N&B" Then sh.Cells(Y,X).Value = "FALSE" If sh.Cells(Y,X).Value = "couleur" Then sh.Cells(Y.X).Value = "TRUE" Y = Y + 1 Wend

---

Je n'ai pas testé mais ça devrait marcher, je n'ai sûrement pas la meilleure des méthodes mais ça pourra peut être te permettre d'en apprendre un peu plus pour tes conditions et comment parcourir ton fichier Excel, tu peux toujours exploiter celle solution en en attendant une sûrement plus appropriée.

EDIT : je n'avais pas vu que tu voulais modifier une donnée dans une autre feuille, dans ce cas tu peux simplement modifier la worksheet "sh" par Worksheets("nomdetafeuille")

ex :

Code:

---

1 2	If sh.Cells(X, Y).Value = "N&B" Then Worksheets("feuil1").Cells(X, Y).Value = "FALSE"

---

La cellule de coordonées (X, Y) de ta feuille "feuil1" va recevoir la valeur "FALSE".

Cordialement,
François

Merci beaucoup François, je test tte de suite

De rien, n'hésite pas à me tenir au courant, je n'ai pas l'habitude de répondre à des problèmes il se peut que j'ai mal interprété le tiens.

Retiens surtout que si tu veux parcourir les cellules de ta colonne A de la ligne 1 a 10 de ta feuille "feuil1" et attribuer au cellules de ta colonne A de la ligne 1 a 10 de ta feuille "feuil2", utilise le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim feuille1 As Worksheet Dim feuille2 As Worksheet Dim Y As Integer Dim X As Integer   'Tu veux extraire les infos de ta colonne A donc X = 1 X = 1 'Tu assignes ici le nom de tes feuilles Set feuille1 = "feuil1" Set feuille2 = "feuil2" 'Tu te positionne à ta première ligne Y = 1 While Y <= 10 If feuille1.Cells(Y,X).Value = "N&B" Then feuille2.Cells(Y,X).Value = "FALSE" If feuille1.Cells(Y,X).Value = "couleur" Then feuille2.Cells(Y.X).Value = "TRUE" Y = Y + 1 Wend

---

Alors concernant le deuxième code, malheureusement je ne connais pas la dernière ligne, enfin je pourrais le connaître mais c'est pour traiter plus de 700BDD d'un coup, et donc les données en dernier change tt le temps.

Concernant le premier code, j'ai essayé ça a l'air de fonctionner merci ! Juste que ça traduit automatiquement en français FAUX VRAIS mais en tt cas merci beaucoup !

Génial, pas de soucis !

Fais juste attention, si tu as une cellule vide au milieu de ta colonne, le code s'arrêtera car on boucle jusqu'à justement trouver une valeur vide (qui représente souvent une fin de colonne).

Bonne journée,
François

yes pas de soucis, merci beaucoup en tt cas