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