Discussion :

[Aliocha7775]

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 :

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

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

[mjpmjp]

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

'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",

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

en résumé,

Code :

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

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

[Aliocha7775]

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 :

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

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

[mjpmjp]

bonjour,

Code :

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

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

@+JP

[Aliocha7775]

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

[mjpmjp]

bonjour,

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

Code :

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

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

@+JP

[Aliocha7775]

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 :

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

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

[mjpmjp]

bonjour,

Code :

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

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 :

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

1
2
3
4
5
 
With Sheets("Feuil2")
   Ligfin = .Range("A1048576").End(xlUp).Row
   Colfin = .Range("XFD1").End(xlToLeft).Column
End With

@+JP

[Philippe Tulliez]

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 :

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

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 :

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

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

[Aliocha7775]

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 !

@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