Microsoft 365 Remplir sous condition

Robert

XLDnaute Barbatruc

Repose en paix

• 23 Décembre 2019

• #2

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

 

Vote positif 0 Vote négatif

WTF

XLDnaute Impliqué

• 23 Décembre 2019

• #3

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

 

Pièces jointes

• Code rubrique.xlsx

  11.2 KB · Affichages: 5

Vote positif 0 Vote négatif

S

Santulud

XLDnaute Occasionnel

• 23 Décembre 2019

• #4

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.

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 23 Décembre 2019

• #5

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

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 23 Décembre 2019

• #6

Re,

Merci Santulud...

 

Vote positif 0 Vote négatif

S

Santulud

XLDnaute Occasionnel

• 23 Décembre 2019

• #7

De rien, ça arrive a tout le monde.

 

Vote positif 0 Vote négatif

WTF

XLDnaute Impliqué

• 23 Décembre 2019

• #8

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

 

Pièces jointes

• TEST.xlsm

  185.3 KB · Affichages: 3

Vote positif 0 Vote négatif