comment trouver une cellule vide en VB

[plancadomi]

bonjour bonsoir
je cherche la formule VB pour que ma macro puisse trouver une cellule vide dans un bloc de cellule (a1:f10)et lui donner la valeur de la variable "a1"
je suis désolé de vous poser des questions aussi beotiennes
merci d'avance
ps j'ai compris pour mettre resolu :
merci encore

[souri84]

Salut,
s'il n'y a qu'une cellule,
Essayes ceci:

Code: Tout sélectionner

Selection.SpecialCells(xlCellTypeBlanks).Select
    ActiveCell.Value = a1

si plusieurs cellules risquent d'être vide:

Code: Tout sélectionner

Sub Macro2()
Dim cellule As Range
    Selection.SpecialCells(xlCellTypeBlanks).Select
   
    For Each cellule In Selection
    cellule = a1
    Next cellule
End Sub

naturellement, a1 doit avoir une valeur et tu dois selectionner ta zone avant.

Par exemple si tu recherches une ou des cellules vides dans A1:A100,

tu selectionnes A1:A100 et tu lances ta macro....

[Lorek]

Sper, mais comment on ajoute la zone qu'on recherche, je ne suis pas non plus, une fleche en exell, c'est pour ca que votre aide mes precieuse.
d'avance merci

[dubois]

Bonsoir à tous,

autre approche

Code: Tout sélectionner

Sub Remplacement()
    Range("d3:e26").Replace What:="", Replacement:=Range("A1")
End Sub

Amicalement
Claude

[Lorek]

bonsoir,
je viens d'utiliser votre code, mais le chiffre s'affiche dans toutes les cellules vide, comment faire pour que ca ne soit que dans la premiere cellules vide?

[dubois]

re,

je répondais à l'auteur du poste plancadomi

Lorek,
ouvre un poste en posant ta question

Amicalement
Claude

[Lorek]

ok, mais quand j'ai fait ca, on m'a renvoyé aux questions deja existance!!!
En plus, j'ai la meme question que plus haut, avec juste la precision que je cherche qu'il s'affiche que dans la premiere vide.
Bien a vous

[paritec]

Bonjour Lorek claude le forum
lorek , voilà là tu rempliras la première cellule vide de la plage D3:E26
a+
papou

Code: Tout sélectionner

Sub remplir()
    Dim cel As Range
    For Each cel In Range("D3:E26")
        If cel = "" Then cel = Range("A1"): Exit For
    Next
End Sub

[Lorek]

Bonjour,
super, c'est ce dont j'avais besoin, juste une dernière petite demande d'aide, si je peux, si je veux rajouter des infos dnas la colonne B, C, D, etc, de la même ligne, pouvez vous juste me donner la formule.
Encore un énorme merci
Lorek

[paritec]

Bonjour Lorek le forum
tu me mets un petit fichier avec les explications de ce que tu veux dans le fichier et je vais te faire cela
mais tu veux ajouter quoi en B C D ?? et si une des cellules est déjà remplie on fait quoi?
le fichier , les explications, et je te fais cela
a+
Papou