Selection entre deux cases vides

Bonjour à toutes et à tous,

Je cherche à faire une macro/vba qui me permettrait de dire " je sélectionne les lignes comprises entre deux cases vides" puis je fais ma tambouille puis je continue je prends les lignes suivantes qui se trouvent entre d'autres cases vides.

Exemple :
A1 (vide) B1 (non vide)
ligne
ligne
ligne
A5 (vide) B5 (non vide)
ligne
ligne
ligne
ligne
ligne
A11 (vide)

etc.

Merci par avance !!!

Pierre- Alex

Bonsoir flom93
Une proposition:

Code:

---

1 2 3 4 5 6

Sub test() Dim Plg As Range With Sheets("Feuil1") ' à adapter Set Plg = .Range(.Cells(1, 2), .Cells(Rows.Count, 2).End(3)).SpecialCells(xlCellTypeBlanks).Offset(0, -1) End With End Sub

---

Cordialement

J'ai testé la macro mais rien ne se passe...
Je dois être fatigué, je comprends pas d'où fait l'erreur...

Autre proposition :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

nbligne=1000 Dim Mem(nbligne, nbligne) k = 1 For f = 2 To nbligne   If Cells(f, 1) <> "" Then x = x + 1 Mem(k, x) = Cells(f, 1) End If   If Cells(f, 1) = "" Then k = k + 1 x=0 End If   Next

---

Ce code permet de balayer la colonne A, et de mémoriser les valeurs dans Mem(k,x).
A chaque groupe de valeur entre 2 cellules vides, il incrémente k, puis enregistre les valeurs dans Mem(k,1) puis Mem(k,2), ....

Pour ton exemple cela donne :
Mem(1,1)=A2
Mem(1,2)=A3
Mem(1,3)=A4
Mem(2,1)=A6
Mem(2,2)=A7
Mem(2,3)=A8
Mem(2,4)=A9
Mem(2,5)=A10

Bonjour flom93, lmb19,
Ma proposition d'hier soir n'était que la création de la plage que tu recherche.
Voici un code "qui fait quelque chose" et qui te montrera comment boucler sur les lignes vide entre deux non vides.
Fait un essai sur un classeur test d'une vingtaine de lignes:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub test2() Dim Plg As Range, C As Range, Msg$ With Sheets("Feuil1") ' a adapter Set Plg = .Range(.Cells(1, 2), .Cells(Rows.Count, 2).End(3)).SpecialCells(xlCellTypeBlanks).Offset(0, -1) Plg.Select MsgBox Plg.Address, 64, "PLage utilisée" For Each C In Plg Msg = Msg & C.Row & vbLf Next C MsgBox Msg, 64, "Liste des lignes" End With End Sub

---

Cordialement

En fait je voudrais que la macro sélectionne les lignes entières qui se trouvent entre deux cases vides puis que les lignes soient copiées et collées dans une nouvelles feuilles.
Une fois cela fait, on retourne sur la feuille 1 et on continue avec les lignes suivantes, etc...

J'ai 10 000 lignes en tout...

Re
Essai comme ça:

Code:

---

1 2 3 4 5

Sub test3() With Sheets("Feuil1") ' a adapter .Range(.Cells(1, 2), .Cells(Rows.Count, 2).End(3)).SpecialCells(xlCellTypeBlanks).Offset(0, -1).EntireRow.Copy Sheets("Feuil2").Range("A2") 'Feuil2 a adapter End With End Sub

---

Cordialement

Oui c'est presque ça, en fait, il faudrait une boucle qui crée autant de feuille que de zone entre deux cases vides.

Re

Citation:

---

Envoyé par flom93

il faudrait une boucle qui crée autant de feuille que de zone entre deux cases vides.

---

Quels noms doit on choisir ?
Les feuilles peuvent-elles déjà exister ?
Doit on vraiment copier toute la ligne ?
Cordialement

Non, il faut toutes les créer et peu importe leur nom, je les utiliserai après pour croiser plein de donner... je ne pense pas que ça soit la solution optimum pour le fichier que je veux créer mais je ne vois pas trop comment créer le fichier dont j'ai besoin...

En fait, j'ai besoin de A,B,C,D,E,F,G,S,Y.

Cordialement

Re
Essai comme ça, en mettant le nombre de colonnes de ton tableau (Col = 8 dans l'exemple)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test4() Dim Plg As Range, C As Range, Col& Col = 8 'Nombre de colonnes Application.ScreenUpdating = False With Sheets("Feuil1") ' a adapter Set Plg = .Range(.Cells(1, 2), .Cells(Rows.Count, 2).End(3)).SpecialCells(xlCellTypeBlanks).Offset(0, -1) For Each C In Plg.Areas Sheets.Add After:=Sheets(Sheets.Count) C.Resize(, Col).Copy Sheets(Sheets.Count).Range("A1") Next C .Activate End With End Sub

---

Cordialement