A voir également:
- VISUAL BASIC pour EXCEL
- Visual basic - Télécharger - Langages
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
1 réponse
salut,
voici une procédure qui renvoie la première colonne ne contenant aucunes données :
Sub PremierColonneeVide()
Dim intCol As Integer
For intCol = 1 To 256
If Application.WorksheetFunction.CountA(ActiveSheet.Columns(intCol)) = 0 Then
MsgBox "Première colonne vide = " & intCol, vbExclamation, "Recherche de la première colonne vide"
Exit For
End If
Next
End Sub
voici une procédure qui renvoie la première colonne ne contenant aucunes données :
Sub PremierColonneeVide()
Dim intCol As Integer
For intCol = 1 To 256
If Application.WorksheetFunction.CountA(ActiveSheet.Columns(intCol)) = 0 Then
MsgBox "Première colonne vide = " & intCol, vbExclamation, "Recherche de la première colonne vide"
Exit For
End If
Next
End Sub
