Selection d'une colonne

Fermé
sikasika Messages postés 71 Date d'inscription vendredi 14 décembre 2012 Statut Membre Dernière intervention 10 juillet 2014 - 1 nov. 2013 à 13:03
cousinhub29 Messages postés 1016 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 15 mars 2025 - 1 nov. 2013 à 15:38
Bonjour tout le monde,

j'ai un petit soucis avec une macros et j'ai besoin d'aide

J'aimerai savoir si on sélectionne une colonne avec le code suivant :

Etat_Mat = Range("Etat_Mat").Select

est ce que si j'ai besoin de parcourir toute la colonne pour voir s'il y a une cellule vide il suffit de mettre la condition de vide en utilisant uniquement le
Range("Etat_Mat").Select ??? ou faut il mettre une boucle sur Range("Etat_Mat").Select pour la parcourir

merci

A voir également:

5 réponses

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 525
1 nov. 2013 à 13:36
Bonjour,

Tu n'as pas besoin de sélectionner la plage pour voir s'il y a une cellule vide.
A priori, "Etat_Mat" correspond à une plage nommée.
Tu peux faire ce test
Sub Test()
Dim NbVides as long
NbVides= Application.CountBlank(Range("Etat_Mat"))
If NbVides >0 then
msgbox "Il y a" & NbVides & " cellule(s) vide(s)."
else
msgbox "Il n'y a aucune cellule vide."
end if
End Sub

A+
0
sikasika Messages postés 71 Date d'inscription vendredi 14 décembre 2012 Statut Membre Dernière intervention 10 juillet 2014 3
1 nov. 2013 à 15:19
Bonjour,

Merci pour votre réponse
mais en fait au niveau de ma colonne j'aimerai savoir si il y a des cellule vide pour les remplir avec un chiffre

par exemple j'aimerai écrire un code qui me permettra de voir s'il y a une cellule vide au niveau de la colonne Etat_Mat et de la remplir par 0

avec VB j'ai compris qu'il est possible d'utiliser :

If IsNull(rec.Fields("Etat_Mat")) then ......Mais au niveau de VBA je ne c'est pas si c'est la mm chose

merci
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 525
1 nov. 2013 à 15:30
0
cousinhub29 Messages postés 1016 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 15 mars 2025 355
1 nov. 2013 à 15:34
Bonjour,

Bonjour Gyrus

Un petit exemple de code :

Range("Etat_Mat").SpecialCells(xlCellTypeBlanks).Value = 0

Bon courage
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cousinhub29 Messages postés 1016 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 15 mars 2025 355
1 nov. 2013 à 15:38
Re-,

Et afin d'éviter un msg d'erreur s'il n'y a pas de cellules vides, et en reprenant une partie du code de gyrus, tu peux peaufiner ainsi :

        If Application.CountBlank(Range("Etat_Mat")) > 0 Then
Range("Etat_Mat").SpecialCells(xlCellTypeBlanks).Value = 0
End If

bonne journée
0