Nommer une plage à partir de Find (je crois)...Résolu

Question

Bonjour,
Je débute en vba, et je voulais savoir comment créer une plage intitulée "x" regroupant toutes les cellules de col.A dont la valeur est "auteur".
Une fois cette plage nommée,  j'aimerais pouvoir sélectionner toutes les cellules comprises entre la première et la seconde cellule de cette plage.
J'y ai passé la journée et commence à désespérer...
Merci

edouard_berth · Accepted Answer

Merci beaucoup,

Tout marche à merveille !

cs_wape · Answer

Bonsoir,

Essaye qqch du genre :

Dim MaTable() As String


Dim MaPlage As Range
Dim Cellule As Range


'Parcourir les cellules de la colonne A
For Each Cellule In ActiveSheet.Range("A1:A" & ActiveSheet.Range("A65536").End(xlUp).Row)
   If Cellule.Value = "auteur" Then
      If MaPlage Is Nothing Then
         Set MaPlage = Cellule
      Else
         Set MaPlage = Union(MaPlage, Cellule)
      End If
   End If
Next


'Cr&#233;er la plage nomm&#233;e
ActiveSheet.Names.Add "X", MaPlage


'R&#233;cup&#233;rer les adresses des cellules de la plage
MaTable = Split(MaPlage.Address, ",")


'S&#233;lectionner la plage comprise entre la 1&#232;re et la 2&#232;me cellule
ActiveSheet.Range(MaTable(0) & ":" & MaTable(1)).Select

wape

edouard_berth · Answer

Merci pour cette réponse, mais je ne parviens pas à faire fonctionner le code dont l'exécution s'arrète au moment de nommer la plage...
Je cherche une explication mais si tu as une idée, n'hésite pas...
Merci encore

cs_wape · Answer

Bonjour,

S'agit-il du message ?
 
Erreur d'ex&#233;cution 1004:
Erreur d&#233;finie par l'application ou par l'objet

Si oui, cela signifie qu'aucune cellule de la colonne A ne contient le mot "auteur". Dans ce cas, essaye de modifier le code comme suit :

'Cr&#233;er la plage nomm&#233;e
If MaPlage Is Nothing Then
   MsgBox "Aucune cellule ne contient le mot 'auteur' !", vbCritical
   Exit Sub
Else
   ActiveSheet.Names.Add "X", MaPlage
End If

wape

edouard_berth · Answer

Merci, infiniment. C'était effectivement le problème. En fait auteur était écrit avec une majuscule dans la colonne A.
Au risque d'abuser de ta patience et de tes compétences, je me demandais comment je pourrais non pas sélectionner les cellules du premier auteur au second, mais de la cellule de la colonne B à côté du premier auteur, jusqu'à la cellule de la colonne B juste au dessus du second auteur (bon ça je reconnais que je devrais être en mesure de m'en sortir). Par contre, je voudrais pouvoir créer ue boucle qui, une fois ma première sélection traitée me permettrait de passer à la sélection suivante (entre le second et le troisième auteur etc...),
et là, ça me semble plus compliqué...
Merci encore

EB

cs_wape · Answer

Re,

Pour la boucle de s&#233;lection des plages, essaye ceci :

'S&#233;lectionner les plages l'une &#224; la suite de l'autre
For i = 0 To UBound(MaTable)
   If i = UBound(MaTable) Then
      ActiveSheet.Range(Range(MaTable(i)).Offset(0, 1).Address & ":" & Range("A65536").End(xlUp).Offset(0, 1).Address).Select
   Else
      ActiveSheet.Range(Range(MaTable(i)).Offset(0, 1).Address & ":" & Range(MaTable(i + 1)).Offset(-1, 1).Address).Select
   End If
   MsgBox "La plage no " & i + 1 & " a &#233;t&#233; s&#233;lectionn&#233;e."
Next i

wape