Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Sikaar,
Essaie ceci :
Adapte le nom de la feuille et l'adresse de la colonne ...
'--------------------------- Sub test()
Dim Tblo As Variant Dim NbCelluleNonVidesColonneA As Long
With Worksheets("Feuil1") 'Nom Feuille à adapter Tblo = .Range("A1:A" & .Range("A65536").End(xlUp).Row) End With NbCelluleNonVidesColonneA = Application.CountA(Tblo)
End Sub '---------------------------
Salutations!
"Sikaar" a écrit dans le message de news: Bonjour, Pourriez vous m'indiquer commetn ecrire une macro de type nbmax = (nombre de cellules pleines d'une colonne)
Est il ensuite possible d'allouer dynamiquement les valeurs de cellules a des variables ?
Adapte le nom de la feuille et l'adresse de la colonne ...
'---------------------------
Sub test()
Dim Tblo As Variant
Dim NbCelluleNonVidesColonneA As Long
With Worksheets("Feuil1") 'Nom Feuille à adapter
Tblo = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
NbCelluleNonVidesColonneA = Application.CountA(Tblo)
End Sub
'---------------------------
Salutations!
"Sikaar" <Sikaar@discussions.microsoft.com> a écrit dans le message de news: 246F4134-9677-4943-ADDE-55BD33B4F806@microsoft.com...
Bonjour,
Pourriez vous m'indiquer commetn ecrire une macro de type
nbmax = (nombre de cellules pleines d'une colonne)
Est il ensuite possible d'allouer dynamiquement les valeurs de cellules a
des variables ?
Adapte le nom de la feuille et l'adresse de la colonne ...
'--------------------------- Sub test()
Dim Tblo As Variant Dim NbCelluleNonVidesColonneA As Long
With Worksheets("Feuil1") 'Nom Feuille à adapter Tblo = .Range("A1:A" & .Range("A65536").End(xlUp).Row) End With NbCelluleNonVidesColonneA = Application.CountA(Tblo)
End Sub '---------------------------
Salutations!
"Sikaar" a écrit dans le message de news: Bonjour, Pourriez vous m'indiquer commetn ecrire une macro de type nbmax = (nombre de cellules pleines d'une colonne)
Est il ensuite possible d'allouer dynamiquement les valeurs de cellules a des variables ?
Salut avec un bouton et un combobox en feuil1 sert toi apres de la variable n
Private Sub ComboBox1_Click() If ComboBox1.ListIndex = 39 Then Exit Sub 'retour n = ComboBox1.ListIndex + 1 'n donne le N° d'index truc = Sheets("data").Cells(n + 2, j) End Sub
Private Sub CommandButton1_Click() ComboBox1.Clear nbmax = Application.WorksheetFunction.CountA(Range("A:A")) For k = 1 To nbmax ComboBox1.AddItem "F" & k Next ComboBox1.AddItem "Retour" End Sub youky "Sikaar" a écrit dans le message de news:
Bonjour, Pourriez vous m'indiquer commetn ecrire une macro de type nbmax = (nombre de cellules pleines d'une colonne)
Est il ensuite possible d'allouer dynamiquement les valeurs de cellules a des variables ?
Salut
avec un bouton et un combobox en feuil1
sert toi apres de la variable n
Private Sub ComboBox1_Click()
If ComboBox1.ListIndex = 39 Then Exit Sub 'retour
n = ComboBox1.ListIndex + 1 'n donne le N° d'index
truc = Sheets("data").Cells(n + 2, j)
End Sub
Private Sub CommandButton1_Click()
ComboBox1.Clear
nbmax = Application.WorksheetFunction.CountA(Range("A:A"))
For k = 1 To nbmax
ComboBox1.AddItem "F" & k
Next
ComboBox1.AddItem "Retour"
End Sub
youky
"Sikaar" <Sikaar@discussions.microsoft.com> a écrit dans le message de news:
246F4134-9677-4943-ADDE-55BD33B4F806@microsoft.com...
Bonjour,
Pourriez vous m'indiquer commetn ecrire une macro de type
nbmax = (nombre de cellules pleines d'une colonne)
Est il ensuite possible d'allouer dynamiquement les valeurs de cellules a
des variables ?
Salut avec un bouton et un combobox en feuil1 sert toi apres de la variable n
Private Sub ComboBox1_Click() If ComboBox1.ListIndex = 39 Then Exit Sub 'retour n = ComboBox1.ListIndex + 1 'n donne le N° d'index truc = Sheets("data").Cells(n + 2, j) End Sub
Private Sub CommandButton1_Click() ComboBox1.Clear nbmax = Application.WorksheetFunction.CountA(Range("A:A")) For k = 1 To nbmax ComboBox1.AddItem "F" & k Next ComboBox1.AddItem "Retour" End Sub youky "Sikaar" a écrit dans le message de news:
Bonjour, Pourriez vous m'indiquer commetn ecrire une macro de type nbmax = (nombre de cellules pleines d'une colonne)
Est il ensuite possible d'allouer dynamiquement les valeurs de cellules a des variables ?
