bonsoir
cette apres midi j ai demande de l aide pour
afficher une liste de nom sur 2 colonnes
suivant 2 variables definis en N6 et 06
( voir la discution MODIF POUR SEPARER UNE COLONNE EN 2 )
J AI recu rapidement une réponse de PAPOU-NET
QUI m'a proposé ceci
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("N6:O6"), Target) Is Nothing Then Exit Sub
Range("H:I").ClearContents
For lg = 1 To Range("N6")
Cells(lg, 8) = Cells(lg, 1)
Next
For lg = 1 To Range("O6")
Cells(lg, 9) = Cells(lg + Range("N6"), 1)
Next
End Sub
ceci fonctionne parfaitement
mais je prefererai que ce soit une macro du genre
sub NOMCLUB()
' NOMCLUB macro
' macro enregistrée le xxxx
cela me permettrait dans ma feuille d'inserer un bouton et cet affichage sur 2 colonnes s'executerait lors du clic sur le bouton
pouvez vous faire quelque chose
merci d avance
merci d avance PAPOU-NET si tu lis ce message
amicalement
raym1313
cette apres midi j ai demande de l aide pour
afficher une liste de nom sur 2 colonnes
suivant 2 variables definis en N6 et 06
( voir la discution MODIF POUR SEPARER UNE COLONNE EN 2 )
J AI recu rapidement une réponse de PAPOU-NET
QUI m'a proposé ceci
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("N6:O6"), Target) Is Nothing Then Exit Sub
Range("H:I").ClearContents
For lg = 1 To Range("N6")
Cells(lg, 8) = Cells(lg, 1)
Next
For lg = 1 To Range("O6")
Cells(lg, 9) = Cells(lg + Range("N6"), 1)
Next
End Sub
ceci fonctionne parfaitement
mais je prefererai que ce soit une macro du genre
sub NOMCLUB()
' NOMCLUB macro
' macro enregistrée le xxxx
cela me permettrait dans ma feuille d'inserer un bouton et cet affichage sur 2 colonnes s'executerait lors du clic sur le bouton
pouvez vous faire quelque chose
merci d avance
merci d avance PAPOU-NET si tu lis ce message
amicalement
raym1313