Je recherche a crée une macro, qui lorsque je la lance,
Me demande d'entré une nouvelle information pour la colonne B, puis C,
puis D, et une fois ces informations rajoutés, qu'elle trie en ordre
decroissant par la colonne B.
merci
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
Daniel
Bonjour. regarde :
Sub test() Dim Ligne As Long, Rep As String If [B1] = "" Then Ligne = 1 Else Ligne = Range("B65536").End(xlUp).Row + 1 End If Rep = InputBox("Entrez le nom") Range("B" & Ligne).Value = Rep Rep = InputBox("Entrez le prénom") Range("C" & Ligne).Value = Rep Rep = InputBox("Entrez la ville") Range("D" & Ligne).Value = Rep Range("B1:D" & Ligne).Sort Range("B1"), xlDescending End Sub
Cordialement. Daniel "Mirada Benoît" a écrit dans le message de news: oOpxf.235$
Je recherche a crée une macro, qui lorsque je la lance, Me demande d'entré une nouvelle information pour la colonne B, puis C, puis D, et une fois ces informations rajoutés, qu'elle trie en ordre decroissant par la colonne B. merci
Bonjour.
regarde :
Sub test()
Dim Ligne As Long, Rep As String
If [B1] = "" Then
Ligne = 1
Else
Ligne = Range("B65536").End(xlUp).Row + 1
End If
Rep = InputBox("Entrez le nom")
Range("B" & Ligne).Value = Rep
Rep = InputBox("Entrez le prénom")
Range("C" & Ligne).Value = Rep
Rep = InputBox("Entrez la ville")
Range("D" & Ligne).Value = Rep
Range("B1:D" & Ligne).Sort Range("B1"), xlDescending
End Sub
Cordialement.
Daniel
"Mirada Benoît" <miradabenoit@yahoo.com> a écrit dans le message de news:
oOpxf.235$zP4.215@nntpserver.swip.net...
Je recherche a crée une macro, qui lorsque je la lance,
Me demande d'entré une nouvelle information pour la colonne B, puis C,
puis D, et une fois ces informations rajoutés, qu'elle trie en ordre
decroissant par la colonne B.
merci
Sub test() Dim Ligne As Long, Rep As String If [B1] = "" Then Ligne = 1 Else Ligne = Range("B65536").End(xlUp).Row + 1 End If Rep = InputBox("Entrez le nom") Range("B" & Ligne).Value = Rep Rep = InputBox("Entrez le prénom") Range("C" & Ligne).Value = Rep Rep = InputBox("Entrez la ville") Range("D" & Ligne).Value = Rep Range("B1:D" & Ligne).Sort Range("B1"), xlDescending End Sub
Cordialement. Daniel "Mirada Benoît" a écrit dans le message de news: oOpxf.235$
Je recherche a crée une macro, qui lorsque je la lance, Me demande d'entré une nouvelle information pour la colonne B, puis C, puis D, et une fois ces informations rajoutés, qu'elle trie en ordre decroissant par la colonne B. merci
