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

Fo_rum · 2 Avril 2009

Re : probleme avec cette ligne de VBA

Salut,

Avec : Sheets("Feuil2").Range("G5") on a le contenu de la cellule G5 de la feuille "Feuil2" et non le contenu de la cellule G5 de la feuille "Feuil1" !

En fonction de ton style (With …End With) il faut plutôt :
Sheets("Feuil2").Range(Range("G5")).

Es-tu sûr de tes Offset ? Ils doivent dépendre des Options, non ?

Voir le fichier joint (pierrejean, je me suis permis de le modifier ).

pierrejean · 2 Avril 2009

Re : probleme avec cette ligne de VBA

Re

salut robert
Salut Fo_rum

Voir les 2 fichiers ci-joint
Chris_b ou j'ai ajouté ta demande
Chris_c ou j'ai repris les macros de Chris_b
Sauf erreur de ma part ils donnent tous les 2 les bons resultats !!!!!

chrisdu73 · 2 Avril 2009

Re : probleme avec cette ligne de VBA

merci tout les deux mais je pense que vous m'avez eclairé un peu sur mon probleme et dite moi:

que dois je utiliser avec la case d'option =
Boutondoptionx ou
OptionButtonx mon probleme viendrait il de la ?

ou est il possible de rajouter des boutons dans ma barre d'outils ?

merci beaucoup

Chris

probleme avec cette ligne de VBA

chrisdu73

XLDnaute Occasionnel

Fo_rum

XLDnaute Accro

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

chrisdu73

XLDnaute Occasionnel

Discussions similaires