XL 2010 Remplir cellules vides de la colonne selon 1 condition

[babass78]

Bonjour,

J’ai créé une macro pour aller chercher les commentaires de l’onglet Ancien vers Nouveau

en prenant en compte les colonnes H I J .

mais je bloque

La seule condition sera d’avoir « A relancer » en colonne H

Je souhaiterai que les cellules vides de la colonne H (Investigation) soient complétées avec

« A relancer » tout en gardant la liste déroulante présente

Merci de votre aide

 

[Lone-wolf]

Bonjour babass, le Forum 🙂

Dim derlig As Long, i As Long
With Sheets("Nouveau")
derlig = .Cells(Rows.Count, "A").End(xlUp).Row

For i = 2 To derlig
If .Cells(i, "H") = "" Then .Cells(i, "H") = "A relancer"
Next i
End With

 

[Staple1600]

Bonjour le fil, le forum, Lone-Wolf

Une autre syntaxe possible 😉
[private joke](sans boucle)[/private joke]

Sub Relances()
Dim X&
X = Cells(Rows.Count, 1).End(3).Row
Range(Cells(1, "H"), Cells(X, "H")).SpecialCells(4) = "A relancer"
End Sub

 

[Lone-wolf]

Bonjour Jean Marie 🙂

@Staple1600 : SpecialCells(4), encore une nouveauté pour moi.

 

[Staple1600]

Re

@Lone-wolf
C'est la valeur de la constante pour: xlCellTypeBlanks

 

[Lone-wolf]

Re

@Staple1600
OK. xlCellTypeBlanks ou xlCellTypeVisibles je connaissait, mais je ne savais pas qu'on pouvaient mettre une valeur à la place.

 

[Staple1600]

Re

On le peut pour quasiment tout
C'est comme pour : End(3) = End(xlUp)
Il suffit d'aller voir dans l'aide de VBE, la valeur des constantes

 

[Lone-wolf]

Re

D'accord. Merci pour ces conseils. 😉

Personnellement concernant la macro, je la mettrais dans l'évenement SelectionChange. Après tout dépend de l'utilisation du fichier.

 

[Lone-wolf]

@babass78

Re babas Alias Sébastien. Tu as trouvé une solution à ton problème? Ici -> Comparer 2 onglet et copier sur un troisième

 

[babass78]

Merci beaucoup Lone Wolf ça marche super

 

[babass78]

@babass78

Re babas Alias Sébastien. Tu as trouvé une solution à ton problème? Ici -> Comparer 2 onglet et copier sur un troisième

non pas encore trouvé je mets ma réponse sur le post en question

 

[Staple1600]

Bonjour le fil, le forum

@babass78
Tu n'as pas vu le message#3 ou alors je pue de la gu-ule?
A moins que ce soit un simple manque de courtoise de ta part peut-être? 😉

 

[babass78]

non pas encore trouvé je mets ma réponse sur le post en question

lol désolé Staple1600 merci à toi....😉😉😉😉😉😉😉😉😛