Bonjour, sachant que je ne suis pas très douée en vba et que je suis en plein apprentissage j'ai besoin de vos lumières
voila j'ai trouvé deux codes le premier me permet de ranger la colonne M1 qui peut comporter de 263 lignes sachant que entre deux adresse mail il peut y avoir des lignes vide avec une formule dedans, je clique donc sur le bouton ranger et mes adresses se retrouve ranger de m1 a m10 exemple pour 10 adresses les 253 autre ligne se retrouve en dessous a partir de M11 soit 253 lignes
ensuite je clique sur mon autre bouton qui lui va me récupéré les adresses de la colonne M1 je voudrais les ranger dans la feuil2 en A114 le seul problème est que le code ci dessous me concatener ce qu'il y a dans la colonne M1 et me prend bien en compte les 10 1ere adresse mail mais il me met également 253 vrai a la suite
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Sub test_i() Dim j As Integer For j = 2 To Range("m1").End(xlUp).Column Range(Cells(2, j), Cells(232, j)).Sort Key1:=Cells(2, j), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlSortColumns Next j End Sub
ce dont j'ai besoin c'est de récupéré ce qu'il y a dans la colonne M1 une fois ranger avec le premier code mais sans que le deuxième code ne me prennent en compte les cellules vide qui ne sont pas considéré comme vide puisqu'il y a une formule dedans .
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Sub regroupe() Range("n1") = Join(Application.Transpose(Range("M1:M" & Range("M" & Rows.Count).End(xlUp).Row)), SeparateurDeResultats = ";") End Sub
ensuite j'ai besoin qu'il me l'envoi sur la feuille membres1 cellule A114
Partager