Discussion :

[Laura27600]

Bonjour,

Je rencontre un problème concernant une macro.
Je souhaite créer une macro permettant de définir une plage de cellule. Cette macro sera activiée via un bouton. Pour cela, j'ai fait enregistrer une macro, afin de voir quelle est la formule à utiliser. J'ai trouver la macro à utiliser.
Cependant, la plage de cellule deviendra de plus en plus grande étant donné que mon tableau (d'une seule colonne) va s'agrandir au fur et à mesure.

voilà ce que j'ai trouvé :

Code :

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

1
2
3
4
5
  Range("A2" & ":A" & Range("D1") -1).Select
    ActiveWorkbook.Names.Add Name:="PlageClub", RefersToR1C1:= _
        "=NouveauClub!R2C1:R4C1"
    ActiveWorkbook.Names("PlageClub").Comment = ""
    Range("C5").Select

La première ligne, je l'ai changé puisque je souhaite que la plage se définisse en fonction du nombre de lignes de mon tableau.
Cependant, à partir de la deuxième ligne cela bloque. Je ne sais pas pourquoi et je ne sais pas à quoi corresponde les chiffres de cette ligne ..

Pouvez-vous m'aider, s'il vous plait ?

[Theze]

Bonsoir,

Teste ce qui suit :

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 DéfinirLaPlage()
 
    Dim Plage As Range
 
    'sur la colonne A de la feuille "Feuil1"
    With Worksheets("Feuil1")
 
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    MsgBox Plage.Address(0, 0)
 
End Sub

Hervé.

[Pierre Fauconnier]

Salut.

Version d'Excel?

Depuis 2007 (et même 2003, avec un peu d'astuce), tu peux utiliser les "Tableaux de données"... Ils grandissent de façon dynamique en fonction des saisies.

Tu peux alors piloter en VBA un objet de type listobject, qui possède notamment un sous-objet DataBodyRange et des sous-objets ListColumn qui contiennent eux aussi des sous-objets DataBodyRange.

En 2003, tu peux nommer une plage qui utiliser une colonne (ou tout le tableau) et elle sera ipso facto dynamique.

[Laura27600]

Merci pour votre réponse.

En exécutant la macro, tout d'abord, il n'y a pas de problème. Cependant, à la fin de l'exécution j'ai un message me disant "A1:A79" ..

Merci aussi Pierre Fauconnier pour votre réponse ..

Cependant, mon tableau ne grandit que lorsque l'utilisateur ajoute un nouveau client. Ainsi, la plage doit être actualisée. Je ne vois donc pas comment utiliser ce genre de tableau ?

[nibledispo]

Bonsoir,

Ce doit-être la réponse à l'instruction "MsgBox Plage.Address(0, 0)" du code de Theze, je pense.

Ci elle ne sert pas il suffit de la supprimer.

Cordialement,

[Laura27600]

Bonsoir,

j'ai supprimé "MsgBox Plage.Address(0, 0)".
Cependant, je ne vois pas à quoi sert la macro ..
Aucune plage n'est créée..

[nibledispo]

re....,

Si j'ai bien compris, la macro de Theze renvoie la plage concernée qui se nomme précisément plage dans son code.

Donc il suffit de mettre en bonne place ce plage au début de ta macro qui en tiendra compte.

Je pense que dans ta macro que je ne comprends pas trop "Range("A2" & ":A" & Range("D1") -1).Select" est la plage en question avec un D1 (dernière ligne) qui évolue.
Si c'est le cas: remplacer cet ligne par celle de Theze

Sinon si D1 est bien la dernière ligne de la plage alors poser au préalable :
"D1 = Cells(1, 1).End(xlUp).row"

C'est un avis de novice en VBA.

Cordialement