Discussion :

[SandraLS]

Bonjour à tous,

Je suis en train de travailler sur une macro et je bloque complètement sur cette partie, qui pourtant semble toute bête...
J'ai dans un onglet de mon fichier une colonne dans laquelle j'ai certaines cellules vide et j'aimerais pouvoir remplacer ces cellules par un texte.
Pour cela, j'ai effectué un filtre sur les cellules vides de cette colonne, j'arrive à entrer mon texte dans la première cellule de mon filtre mais impossible de trouver un moyen de l'étirer sur le reste des cellules de mon filtre...
Voici le début de code que j'ai écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
ActiveSheet.Range("$A$1:$BC$1000000").AutoFilter Field:=2, Criteria1:="="
                                            If Range("A2:A" & Range("A1000000").End(xlUp).Row).SpecialCells(xlVisible).Cells(1, 1) <> "" Then
                                                    Range("A2:A" & Range("A1000000").End(xlUp).Row).SpecialCells(xlVisible).Cells(1, 2).Select
                                                    ActiveCell.FormulaR1C1 = "TRAPPES"

Je ne m'y prends certainement pas de la bonne manière, auriez-vous une idée plus judicieuse ?

Merci d'avance pour votre aide

[Aposto]

Bonjour,

avant de te proposer une solution j'aurais besoin de précisions:

-Est-ce normal que tu filtres la colonne 2 avec les valeurs vides et que remplisses la colonne A ?

-si c'est normal alors il faudrait mieux ajouter un deuxième critère de filtre sur la colonne A, plutôt que d'utiliser un if, sinon:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveSheet.UsedRange.AutoFilter Field:=1, Criteria1:="="
 
Range("A2:A" & ActiveSheet.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible).Value = "TRAPPES"

en supposant que c'est dans la colonne A que se trouvent les cellules vides.

Aposto

[SandraLS]

Bonjour Aposto,

D'abord merci pour ta réponse! Ensuite, non je te confirme que c'est bien la colonne B que je veux remplir.

Pour être plus précise, la colonne A est ma colonne de référence, elle ne contient pas de cellules vides, donc j'ai utilisé le if pour vérifier que j'ai bien une valeur dans la première cellule visible de la colonne A et donc que j'ai bien des éléments dans mon filtre (d'ailleurs je me rend compte que j'aurais du mettre <> de la valeur du titre de ma colonne et non pas <>"")

Ensuite impossible de sélectionner ma première cellule de B en direct sur cette colonne avec SpecialCells(xlCellTypeVisible) donc j'ai contourné en sélectionnant celle de la colonne A et en décalant d'une cellule sur la droite :
Range("A2:A" & Range("A1000000").End(xlUp).Row).SpecialCells(xlVisible).Cells(1, 2)
Le résultat est correct j'ai bien la valeur TRAPPES dans ma première cellule visible dans la colonne B, mais maintenant je n'arrive pas à donner cette valeur à toutes les autres cellules vides de mon filtre...

[OBO29]

Bonjour,

L'utilisation d'un filtre n'est pas forcément la façon la plus facile de procéder.
Voici un exemple de code pouvant fonctionner ?
Je pense que l'affectation de la "Plage" sera à optimiser; je te laisse chercher.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim Plage As Range
 
Set Plage = Range("B1:B1000000")
 
For Each Cellule In Plage
    If Cellule.Value = "" Then Cellule.Value = "TRAPPES"
Next

Bonne continuation.

[SandraLS]

Bonjour OBO29,

Super!! Je n'ai pas réussi à utiliser for each mais du coup je me suis rabattue sur For next

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
DerniereLigne = Range("A1").End(xlDown).Row
                                            For j = 1 To DerniereLigne
                                                    If Cells(j, 2).Value = "" Then Cells(j, 2).Value = "TRAPPES"
                                            Next j

Ca marche nickel!! Merci beaucoup pour votre aide!!

[OBO29]

N'oublie pas de marquer ton sujet comme et bonne continuation