Discussion :

[Kiera]

Bonjour,

J'aurai voulu savoir comment peut-on détecter une cellule vide (sur excel) via une macro afin de pouvoir inscrire "les coordonnées" de cette cellule sur une autre feuille s'il vous plaît?
En fait je cherche à savoir comment rédiger l'instruction en question car je ne vois pas .
Merci pour votre aide .

Cordialement

[Kimy_Ire]

Bonjour Keria,

Voici un petit exemple permettant de rechercher une cellule vide dans la Feuil3 sur la range B1:B13.
Ensuite sur la Feuil2 en range A1 on place l'adresse de la cellule trouvée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub recherche_vide()
Dim Rng As Range
Dim Plage_rech As Range
 
With Worksheets("Feuil3")
    Set Plage_rech = .Range("B1:B13")
    Set Rng = Plage_rech.Find("", LookIn:=xlValues, LookAt:=xlWhole)
End With
 
With Worksheets("Feuil2")
    .Range("A1") = Rng.Address
End With
 
End Sub

N'hésite pas à revenir vers moi !

Cordialement,
Kimy

[Thautheme]

Bonsoir le fil, bonsoir le forum,

Tu peux aussi utiliser SpecialCells(xlCellTypeBlanks) dans une plage pour récupérer la ou les adresses de la ou des cellules vides.

Dans un fichier vierge j'ai fait une sélection au hasard en partant de A1. J'ai tapé Blablabla et j'ai validé par [CTRL]+[Entrée]. Résultat, toutes les cellules de la sélection contenaient le mot Blablabla. À l'intérieur de cette sélection, j'en ai effacé plusieurs aléatoirement...
Teste et lance la macro :

Code :

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

1
2
3
4
5
6
Sub Macro1()
Dim AD As String 'déclare la variable AD
 
AD = Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).Address 'définit la variable AD
MsgBox AD 'affiche AD dans un message
End Sub

[Docmarti]

Bonjour.

SpecialCells est à éviter.

FIND est préférable. Il faut spécifier ses paramètres. Voir démo ci-joint.

Le mieux : FOR...NEXT

[Thautheme]

Bonjour le fil, bonjour le forum,

SpecialCells est à éviter

Tu peux développer ça m'intéresse. Parce qu'affirmer des choses sans les expliquer ça ne fait pas beaucoup avancer...

Ton code ne renvoie que la première cellule vide trouvée et on ne peux même pas le relancer sans passer par VBE, c'est plutôt ça qui serait à éviter selon moi...
Quant à la boucle For... Next, niveau rapidité c'est pas ce qu'il y a de mieux...

[Docmarti]

SpecialCells est à éviter.

Correction:

SpecialCells n'est pas à éviter.

Nonobstant un bug dans les versions antérieures à 2010, qui limitait le nombre de régions à 8192,
c'est une méthode qui peut être extrêmement utile grâce à ses options :

• xlCellTypeAllFormatConditions
• xlCellTypeAllValidation
• xlCellTypeBlanks
• xlCellTypeComments
• xlCellTypeConstants
• xlCellTypeFormulas
• xlCellTypeSameFormatConditions
• xlCellTypeSameValidation
• xlCellTypeVisible

[vinc_bilb]

Bonjour à tous ....

Je suis un fan du specialcells .... c'est extrèmement puissant et rapide .... donc j'avais été vraiement surpris par l'avis .... Merci pour votre contribution