Discussion :

[stéphane35200]

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

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

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
Sub regroupe()
 
Range("n1") = Join(Application.Transpose(Range("M1:M" & Range("M" & Rows.Count).End(xlUp).Row)), SeparateurDeResultats = ";")
 
 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 .
ensuite j'ai besoin qu'il me l'envoi sur la feuille membres1 cellule A114

[rjamin]

Bonjour,
Dans ce calcul pour déterminer la dernière ligne non vide il y a une erreur du fait que fait que les cellule qui n'affiche rien ne sont pas vide comme vous l'avez signaler, mais la formule qu'elle contienne met plus que probablement une "" (chaine vide) dans la cellule donc il faudrait avec un NB.SI(Plage;"") et retirer cette valeur du résultat trouvez dans le calcul de Rows.Count.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
Range("M" & Rows.Count).End(xlUp).Row))

Essayez quelque chose comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("M" & Rows.Count-CountIf(M:M;""))

[vinc_bilb]

Bonjour,

Vous pouvez également judicieusement passer pas le range.SpceciallCell (excel >= 2007 de mémoire)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Range("M1").CurrentRegion.SpecialCells(xlCellTypeConstants) 'Région autour de M1 contenant des constantes
... (xlCellTypeFormulas) 'Formules

Bonne journée

[Marc-L]

Bonjour,

non, cette méthode existait déjà avant la version 2007 …