Creer un bontou avec une macro dans excel
Fermé
tekyo
-
23 mars 2008 à 13:17
Mike-31 Messages postés 18350 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 28 novembre 2024 - 25 mars 2008 à 15:25
Mike-31 Messages postés 18350 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 28 novembre 2024 - 25 mars 2008 à 15:25
A voir également:
- Creer un bontou avec une macro dans excel
- Créer un compte gmail - Guide
- Créer une liste déroulante excel - Guide
- Créer un compte google - Guide
- Créer un groupe whatsapp - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
1 réponse
Mike-31
Messages postés
18350
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
28 novembre 2024
5 105
25 mars 2008 à 15:25
25 mars 2008 à 15:25
Salut,
voila un genre de macroqui vas te faire un bailayage par ligne
dans ce cas le contrôle ce fait de la colonne ou l'on active la cellule jusqu'a la collone 6 ligne . Il convient de changer la le chiffre 6 par une autre valeur de sorte que le controle se face à x colonne à partir de la cellule active
Ensuite si tu actives la cellule en B2, un compteur de dira combien de cellule sont vide dans la plage allant de cette lcellule B2 à G2 dans mon exemple
Sub cellule_vide()
Set plage = Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 6))
n = 0
For Each cel In plage
If cel = "" Then
n = n + 1 'compteur
End If
Next
If n > 0 Then
MsgBox "Il y a " & n & " cellules vides."
Else
If n = 0 Then
ActiveCell.Offset(1, 0).Select
End If
End If
End Sub
A+
voila un genre de macroqui vas te faire un bailayage par ligne
dans ce cas le contrôle ce fait de la colonne ou l'on active la cellule jusqu'a la collone 6 ligne . Il convient de changer la le chiffre 6 par une autre valeur de sorte que le controle se face à x colonne à partir de la cellule active
Ensuite si tu actives la cellule en B2, un compteur de dira combien de cellule sont vide dans la plage allant de cette lcellule B2 à G2 dans mon exemple
Sub cellule_vide()
Set plage = Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 6))
n = 0
For Each cel In plage
If cel = "" Then
n = n + 1 'compteur
End If
Next
If n > 0 Then
MsgBox "Il y a " & n & " cellules vides."
Else
If n = 0 Then
ActiveCell.Offset(1, 0).Select
End If
End If
End Sub
A+