Discussion :

[Tiagra]

Bonjour

je souhaite , avec une macro, rechercher une cellule vide dans une colonne et remplacer celle-ci par une valeur contenue dans une autre cellule.

Exemple:

dans la colonne E, je recherche la première cellule vide, et je remplace celle-ci par la valeur contenue dans la cellule A3.

Merci de votre aide

[Thautheme]

Bonjour Tiagra, bonjour le forum,

Deux options si au moins une cellule de la colonne n'est pas vide :
• à utiliser si tu recherches la première cellule vide en bas de la colonne de données :

Code :

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

1
2
3
4
5
6
7
8
Sub Macro1()
Dim O As Object 'déclare la variable O (onglet)
Dim CV As Range 'déclare la variable CV (Cellule Vide)
 
Set O = sheest("Feuil1") 'définit l'onglet O (à adapter)
Set CV = O.Cells(Application.Rows.Count, 5).End(xlUp).Offset(1, 0) 'définit la cellule CV (première ligne vide de la colonne 5 (=E) de l'onglet O, en partant du bas)
CV.Value = O.Range("A3").Value 'récupère dans CV la valeur de la cellule A3
End Sub

• à utiliser si tu cherches à remplir des "trous" (cellules vides dans dans la colonne de données) :

Code :

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

1
2
3
4
5
6
7
8
Sub Macro2()
Dim O As Object 'déclare la variable O (onglet)
Dim CV As Range 'déclare la variable CV (Cellule Vide)
 
Set O = sheest("Feuil1") 'définit l'onglet O (à adapter)
Set CV = O.Range("E1").End(xlDown).Offset(1, 0) 'définit la cellule CV (première ligne vide de la colonne 5 (=E) de l'onglet O, en partant du haut)
CV.Value = O.Range("A3").Value 'récupère dans CV la valeur de la cellule A3
End Sub

[Menhir]

Code :

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

1
2
3
4
5
6
7
8
Sub Macro2()
Dim O As Object 'déclare la variable O (onglet)
Dim CV As Range 'déclare la variable CV (Cellule Vide)
 
Set O = sheest("Feuil1") 'définit l'onglet O (à adapter)
Set CV = O.Range("E1").End(xlDown).Offset(1, 0) 'définit la cellule CV (première ligne vide de la colonne 5 (=E) de l'onglet O, en partant du haut)
CV.Value = O.Range("A3").Value 'récupère dans CV la valeur de la cellule A3
End Sub

Ne serait-il pas plus simple d'écrire :

Code :

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

1
2
3
Sub MaMacro()
   Range("E1").End(xlDown).Offset(1, 0).Value = Range("A3").Value
End Sub

En supposant que tu as sélectionné la feuille concernée avant de lancer la macro. Sinon, il faudra ajouter un Worksheets("MaFeuille") devant chaque Range
Les ".Value" sont facultatifs (si tu les enlèves, ça marchera sans doute toute aussi bien).

[Thautheme]

Bonjour le fil, bonjour le forum,

Tu as tout à fait raison Menhir mais je préfère ne rien supposer (je suis pas du genre suppositoire...) et j'aime bien coder comme un novice (que je suis) en écrivant toutes les propriétés même si elles sont par défaut... Comme on dit Les coups et les douleurs hein !...

[Tiagra]

Alors la, Mehnir , respect !!

Plus simple n'est pas possible, et en plus cela fonctionne parfaitement.
Et le plus simple , c'est exactement ce qu'un néophyte comme moi à besoin.

merci encore et bonne journée

[Thautheme]

Bonjour le fil, bonjour le forum,

C'est sympa, voisin, tu m'ignores carrément !...

[Menhir]

Alors la, Mehnir , respect !!

Je n'ai fait que reprendre le second code de Thautheme et faire un peu d'élagage.

Pour le consoler, Thautheme, je te

[Tiagra]

Non, ce n'est pas ce que j'ai voulu dire.

Je n'ignore personne , mais avoues que sa formule est d'une simplicité sans égale (1 ligne) , ce qui , pour un ignorant comme moi , était difficile à imaginer.

Par contre, je dois évidement m'excuser pour ne pas t'avoir remercié de tes réponses.. ce que je fais.

Mille excuses et bonne journée à toi

[Thautheme]

Bonjour le fil, bonjour le forum,

J'avoue surtout que j'avais fait l'effort de te soumettre deux options et t'expliquant et commentant le code et que tu m'as, dans un premier temps, complètement ignoré. Pas sympa...
Quant à l'efficacité de Menhir, elle est plus que reconnue, si je ne m'abuse, dans ce forum. Merci à lui pour le lot de consolation...

[Docmarti]

Bonjour à tous.

Pour ne pas avoir de mauvaises surprises, il ne faut pas oublier que End(XlDown) (qui est l'équivalent du raccourci-clavier CTRL-Touche vers le bas) a 2 fonctions. Il trouve alternativement la dernière cellule non vide d'un range puis la première cellule non vide du range suivant.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub MaMacro()
   Set rg = Range("E1").End(xlDown)
 
   If rg.Offset(1) <> "" Then 'Si la ligne suivante n'est pas vide, c'est la précédente qui est vide
     Set PremiereLigneVide = rg.Offset(-1)
    Else
     Set PremiereLigneVide = rg.Offset(1)
   End If
    PremiereLigneVide.Select
 
End Sub