Microsoft 365 Remplir sous condition

WTF · 23 Décembre 2019

Bonjour à tous,

Je souhaiterai remplir la colonne L en fonction de conditions :

Sur l'onglet "résultat"

- Si A2="1-Global"; alors L2="C01"
- Sinon :
Si C2=F2; alors L2="C02"
Sinon L2=D01

Je souhaiterais que la macro s'applique sur toutes les lignes de mon tableau (de la ligne 2 à la dernière).

Merci pour votre aide.

Robert · 23 Décembre 2019

Bonjour WTF, bonjour le forum,

Peut-être comme ça :

VB:

Sub Macro1()
Dim O As Worksheet
Dim DL As Integer
Dim I As Integer

Set O = Worksheets("résultat")
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row
For I = 2 To DL
    O.Cells(I, "L").Value = "D01"
    If O.Cells(I, "A") = "1-Global" Then O.Cells(I, "L").Value = "C01"""
    If c.Cells(2, "C") = O.Cells(2, "F") Then O.Cells(I, "L").Value = "C02"
Next I
End Sub

WTF · 23 Décembre 2019

Bonjour Robert,
Merci pour ta réponse.
J'ai un message d'erreur quand j'exécute ta macro.
J'ai mis un fichier en PJ c'est probablement plus clair

Santulud · 23 Décembre 2019

Bonjour le fil,

je me permet une petite correction sur le code de @Robert

VB:

Sub Macro1()
Dim O As Worksheet
Dim DL As Integer
Dim I As Integer

Set O = Worksheets("résultat")
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row
For I = 2 To DL
    O.Cells(I, "L").Value = "D01"
    If O.Cells(I, "B") = "1-Global" Then O.Cells(I, "L").Value = "C01"
    If O.Cells(I, "C") = O.Cells(I, "F") Then O.Cells(I, "L").Value = "C02"
Next I
End Sub

Cela devrai maintenant être fonctionnel.

Robert · 23 Décembre 2019

Re,

Avec le fichier c'est plus facile et surtout ça permet de tester avant d'envoyer !...

VB:

Sub Macro1()
Dim O As Worksheet
Dim DL As Integer
Dim I As Integer

Set O = Worksheets("Résultat")
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row
For I = 2 To DL
    O.Cells(I, "L").Value = "D01"
    If O.Cells(I, "B") = "1-Global" Then O.Cells(I, "L").Value = "C01"
    If O.Cells(I, "C") = O.Cells(I, "F") Then O.Cells(I, "L").Value = "C02"
Next I
End Sub

Robert · 23 Décembre 2019

Re,

Merci Santulud...

Santulud · 23 Décembre 2019

De rien, ça arrive a tout le monde.

WTF · 23 Décembre 2019

Top, Ca fonctionne très bien. Merci à tous les 2.

Peut être que vous pouvez m'aider sur le reste de mon code.
Grace à vous l'étape 4 de mon projet fonctionne.

Il me reste les étapes 2 et 3 (voir fichier joint), et là je ne vois pas du tout comment m'y prendre.
Si vous ne voyez pas, je tenterai un nouveau post.
Merci

Microsoft 365 Remplir sous condition

WTF

XLDnaute Impliqué

Robert

XLDnaute Barbatruc

WTF

XLDnaute Impliqué

Pièces jointes

Santulud

XLDnaute Occasionnel

Robert

XLDnaute Barbatruc

Robert

XLDnaute Barbatruc

Santulud

XLDnaute Occasionnel

WTF

XLDnaute Impliqué

Pièces jointes

Discussions similaires