probleme avec cette ligne de VBA

chrisdu73 · 1 Avril 2009

bonjour,

voila mon probleme.

dans une feuille (sources) j'ai une cellule (M5) ou une formule "=SI(L3<2;"tab4";SI(L3<4;"tab3";"tab2"))" me renvoie le nom d'une zone de cellules que j'ai defini.

en VBA avec la ligne du bas a cet endroit range ("m5")je n'arrive pas a lui faire prendre comme valeur se nom qui se trouve en "m5"

Private Sub OptionButton1_Click()
Sheets("Réservation 1").Range("a55").Value = Sheets("Sources").Range("m5").Offset(1, 1).Resize(1, 1).Value
End Sub

en esperant avoir ete claire je vous remerci pour votre aide

(mon fichier est trop gros pour envoi)

Chris

wamme · 1 Avril 2009

Re : probleme avec cette ligne de VBA

Bonjour,
ta macro renvoie en A55 la valeur de N6 et pas M5.
Si c'est bien M5 que tu veux il faut enlever .Offset(1,1)

Ou alors je n'ai pas tout compris

chrisdu73 · 1 Avril 2009

Re : probleme avec cette ligne de VBA

tout fonctionne si je remplace M5 par le nom de ma zone tab2 simplement je n'arrive pas a lui donner cette valeur par lecture d'une cellule (dans mon cas en M5)

merci pour votre aide

Chris

wamme · 1 Avril 2009

Re : probleme avec cette ligne de VBA

edit : je supprime ma réponse
je n'ai décidement pas compris le problème

chrisdu73 · 1 Avril 2009

Re : probleme avec cette ligne de VBA

en effet j'ai l'erreur #valeur! car ma plage fait plusieurs cellules, alors comment fait on ?
y doit bien avoir une soluce a ca

Chris

chrisdu73 · 1 Avril 2009

Re : probleme avec cette ligne de VBA

ou alors comment selectionner en VBA une zone definie (tab2) par exemple, que je puisse lire la donnée correspondante avec ma fameuse ligne

merci

Chris

pierrejean · 1 Avril 2009

Re : probleme avec cette ligne de VBA

bonjour a tous

Un petit fichier pour tenter d'expliquer
Si tu le comprend tu pourras adapter a ce que tu souhaites

wamme · 1 Avril 2009

Re : probleme avec cette ligne de VBA

Tu pourrai selectionner la plage en VBA

Code:

Application.Goto Reference:="tab2"

et continuer la macro pour faire un copier/coller

chrisdu73 · 1 Avril 2009

Re : probleme avec cette ligne de VBA

ca marche pas voila un fichier pour comprendre mon probleme

merci

Chris

pierrejean · 1 Avril 2009

Re : probleme avec cette ligne de VBA

Re

Vois si cela correspond a ce que tu souhaites

chrisdu73 · 1 Avril 2009

Re : probleme avec cette ligne de VBA

desole c'est pas tout a fait se que je cherche mais deja un grand merci de m'aider, j'ai juste besoin de pouvoir arriver a donner un nom a la place de g5 comme expliquer dans le fichier

merci a vous tous

chris

Robert · 1 Avril 2009

Re : probleme avec cette ligne de VBA

Bonsoire fil, bonsoir le forum,

Pas trop compris tes Resize ? mais je verrais les choses comme ça :

Code:

Dim pl As String
pl = Range("G5").Value
Sheets("Feuil1").Range("a27").Value = Sheets("Feuil2").Range(pl).Offset(2, 1).Resize(1, 1).Value

chrisdu73 · 1 Avril 2009

Re : probleme avec cette ligne de VBA

ca marche toujours pas
je comprend pas

chris

Robert · 1 Avril 2009

Re : probleme avec cette ligne de VBA

Bonsoir le fiol, bonsoir le forum,

Si ça doit marcher avec les deux Boutons d'Option c'est normal que ça ne marche pas ! Il n'y a aucune macro associée... Si je me souviens bien !

Édition :
Oui j'ai vérifié. Tu as utilisé des boutons d'option de la barre d'outil Formulaire et tu as utilisé des codes qui s'appliquent à des boutons d'option de la barre d'outils Boîte à Outils Contrôle. Il te faudrait soit mettre les codes dans un module et ensuite attribuer une macro à chaque bouton. Soit utiliser des boutons d'option de la barre d'outils Boîte à Outils Contrôle. Mais là ça ne risque pas de marcher...

chrisdu73 · 1 Avril 2009

Re : probleme avec cette ligne de VBA

merci Robert mais le probleme ne viens pas de la car peut etre que le fichier que j'ai transferé na pas les bons boutons, mais c'etait pour expliquer mon probleme car le fichier original est trop gros.
chris

probleme avec cette ligne de VBA

chrisdu73

XLDnaute Occasionnel

wamme

XLDnaute Occasionnel

chrisdu73

XLDnaute Occasionnel

wamme

XLDnaute Occasionnel

chrisdu73

XLDnaute Occasionnel

chrisdu73

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

Pièces jointes

wamme

XLDnaute Occasionnel

chrisdu73

XLDnaute Occasionnel

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

chrisdu73

XLDnaute Occasionnel

Pièces jointes

Robert

XLDnaute Barbatruc

chrisdu73

XLDnaute Occasionnel

Robert

XLDnaute Barbatruc

chrisdu73

XLDnaute Occasionnel

Discussions similaires