Macro VBA Excel 2016 - Selection de la plage de données d'un tableau

Bonjour à tous,

Je rencontre un problème sur ma macro vba excel. Je vous avoue je suis plutôt début et suis perdu dans ma macro.
Je vous place le contexte :
- 1) je souhaite sélectionner la plage de données (sans les cellules vides) d'un tableau dont le nombre de colonnes et lignes varient.
- 2) Mon tableau commence en cellule A1 et je considère que toutes les lignes tableau sont non vides.

Ci-dessous ma macro :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub Bouton5_Cliquer()   'Déclaration des variables Dim Ligfin As Integer, Colfin As Integer   'Attribution des valeurs Ligfin = Range("A1048576").End(xlUp).Row ' ou Ligfin = Cells(Rows.Count, 1).End(xlUp).Row Colfin = Range("XFD1").End(xlToLeft).Column ' ou Colfin = Cells(1, Cells.Columns.Count).End(xlToLeft).Column   'Boucle for For a = 1 To Ligfin '1 => N° de ligne For b = 1 To Colfin '1 => N° de colonne   If a <> "" Or b <> "" Then 'Condition If pour s'arrêter à la dernière ligne et colonne non vides du tableau   'Selection des valeurs à partir de cellule A1 feuille 2 Worksheets(Feuil2).Activate.Range(Cells(1, 1), Cells(a, b)).Select   Else 'Quid de que je dois mettre quand le tableau rencontre une ligne et une colonne vide ???   End If   Next   Next     End Sub

---

Merci d'avance pour votre aide.

Cdlt.

Aliocha7775

bonjour,
tu as tes limites, qui sont : fin de "vide"...

Citation:

---

'Attribution des valeurs
Ligfin = Range("A1048576").End(xlUp).Row ' ou Ligfin = Cells(Rows.Count, 1).End(xlUp).Row
Colfin = Range("XFD1").End(xlToLeft).Column ' ou Colfin = Cells(1, Cells.Columns.Count).End(xlToLeft).Column

---

pas de "activate",

Citation:

---

'Selection des valeurs à partir de cellule A1 feuille 2
Worksheets(Feuil2).Activate.Range(Cells(1, 1), Cells(a, b)).Select

---

en résumé,

Code:

---

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

Sub Bouton5_Cliquer()   'Déclaration des variables Dim Ligfin As Integer Dim Colfin As Integer   'Attribution des valeurs Ligfin = Range("A1048576").End(xlUp).Row ' ou Ligfin = Cells(Rows.Count, 1).End(xlUp).Row Colfin = Range("XFD1").End(xlToLeft).Column ' ou Colfin = Cells(1, Cells.Columns.Count).End(xlToLeft).Column   'Selection des valeurs à partir de cellule A1 feuille 2 Worksheets("Feuil2").Range(Cells(1, 1), Cells(Ligfin,Colfin)).Select   End Sub

---

modif erreur
Worksheets(Feuil2).Range(Cells(1, 1), Cells(Ligfin,Colfin)).Select
par
Worksheets("Feuil2").Range(Cells(1, 1), Cells(Ligfin,Colfin)).Select
@+JP

Merci JP pour ta réponse ! ;-)

Au final ma boucle ne servait à rien !

Je reviens vers toi je viens de tester la code correctif que tu m'as donné :

J'ai une erreur qui revient lors de l’exécution 'erreur 13' sur la ligne :

Code:

---

1 2	'Selection des valeurs à partir de cellule A1 feuille 2 Worksheets(Feuil2).Range(Cells(1, 1), Cells(Ligfin, Colfin)).Select ' (cf. pièce-jointe).

---

J'essaie de trouver une solution et je tiendrai au courant quand ce sera bon.

Cdlt.


Aliocha7775

bonjour,

Code:

---

1 2	Dim Ligfin As Integer Long Dim Colfin As Integer Long

---

@+JP

Visiblement j'ai toujours le même type d'erreur au même endroit. :-(

bonjour,

Worksheets(Feuil2).Range(Cells(1, 1), Cells(Ligfin,Colfin)).Select :pastaper:

Code:

---

1 2	Worksheets("Feuil2").Range(Cells(1, 1), Cells(Ligfin,Colfin)).Select

---

@+JP

Bonjour JP,

Merci pour ta réponse mais j'avais déjà testé avec les guillemets mais ça marchait toujours pas.

Voici le code qui marche :

Code:

---

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

Sub Bouton2_Cliquer()   'Déclaration des variables Dim Ligfin As Long Dim Colfin As Long   'Attribution des valeurs Ligfin = Range("A1048576").End(xlUp).Row 'ou Ligfin = Cells(Rows.Count, 1).End(xlUp).Row[/COLOR][/COLOR] Colfin = Range("XFD1").End(xlToLeft).Column ' ou Colfin = Cells(1, Cells.Columns.Count).End(xlToLeft).Column   'Sélection des valeurs à partir de cellule A1 feuille 2 Worksheets("Feuil2").Activate Range(Cells(1, 1), Cells(Ligfin, Colfin)).Select

---

J'ai rajouté ".Activate" car sans ça ne marchait pas.

Dernière question pourquoi quand j'affecte la macro à un bouton de commande elle ne marche ?

Cdlt.

Aliocha7775

bonjour,

Code:

---

1 2 3

Sub Bouton2_Cliquer() Sub Bouton2_Click()

---

il doit y avoir une question d'option FR/EN...

@+JP

bonjour,

dans cette discussion , pijaku a souligné le fait que tu "remplis" Ligfin et Colfin avec une "feuille" et tu travaille dans une autre "feuille"

code de pijaku

Code:

---

1 2 3 4 5

With Sheets("Feuil2") Ligfin = .Range("A1048576").End(xlUp).Row Colfin = .Range("XFD1").End(xlToLeft).Column End With

---

@+JP

Bonjour,
Pour sélectionner une liste de données complète et à condition que la première ligne et la première colonne soient remplies, j'utilise la fonction CurrentRegion

Exemple

Code:

---

1 2 3 4 5

Sub t() Dim rng As Range Set rng = ThisWorkbook.Worksheets("Résultats").Range("A1").CurrentRegion MsgBox rng.Address(external:=True) End Sub

---

ou de préférence avec la propriété CodeName de la feuille

Code:

---

1 2 3 4 5

Sub t() Dim rng As Range Set rng = shtData.Range("A1").CurrentRegion MsgBox rng.Address(external:=True) End Sub

---

Maintenant si tu utilises un tableau au sens où excel l'entend (Insertion/Tableau), il faut utiliser la propriété DataBodyRange de l'objet ListObject

Merci à vous tous pour vos conseils !!!

@JP merci à toi et Pijaku : il avait raison c'était bien une histoire d'onglet (la "Feuil2") non renseigné et maintenant tout marche !:D

@Phillipe merci pour l'information je le testerais de mon côté pour optimiser ma macro. je sais qu'il faut pas trop utiliser le "select" mais pour le moment j'essaie de comprendre les rouages de VBA.

Bonne soirée à tous et merci encore une fois !!!

Cdlt.

Aliocha7775