Probleme excel VBA
Fermé
cocoye64
-
24 août 2009 à 22:11
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 25 août 2009 à 14:52
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 25 août 2009 à 14:52
A voir également:
- Probleme excel VBA
- Liste déroulante excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Word et excel gratuit - Guide
- Excel compter cellule couleur sans vba - Guide
3 réponses
Bonjour,
Est ce la macro ou le bouton que tu n'arrives pas à faire?
Pour la macro :
sub ficheclient
dim nom, prenom, feuille,i,j as string
sheets("nomprenomàcopier").select
nom = range("B2")
prenom = range("C2")
sheets.add 'c'est peut etre sheet.add
activesheet.name = nom & prenom
sheets("feuillemodele").select
cells.copy
sheets(nom & prenom).select
activesheet.paste
sheets("listeourajouternomprenom").select
i=1
J= 1
cells(i,j).select 'une colonne ou tu as toujours des valeurs
do while selection <> ""
i=i+1
cells(i,j).select
loop
cells(i,j) = nom & prenom
activesheet.Hyperlinks.Add Anchor:=Selection, Address:='', SubAddress:= _
"Feuil" & nom & prenom & "!A1" 'je ne sais pas si ce code marche bien, c'est à vérifier
end sub
Fais le par F8 et regarde si ca te convient.
Pour le lier à un bouton.
Tu créés un bouton (barre d'outils, boite de controle) cick droit lors de la crétion, lier à une macro et tu choisis cette macro.
En espérant avoir répondu à ta demande
Est ce la macro ou le bouton que tu n'arrives pas à faire?
Pour la macro :
sub ficheclient
dim nom, prenom, feuille,i,j as string
sheets("nomprenomàcopier").select
nom = range("B2")
prenom = range("C2")
sheets.add 'c'est peut etre sheet.add
activesheet.name = nom & prenom
sheets("feuillemodele").select
cells.copy
sheets(nom & prenom).select
activesheet.paste
sheets("listeourajouternomprenom").select
i=1
J= 1
cells(i,j).select 'une colonne ou tu as toujours des valeurs
do while selection <> ""
i=i+1
cells(i,j).select
loop
cells(i,j) = nom & prenom
activesheet.Hyperlinks.Add Anchor:=Selection, Address:='', SubAddress:= _
"Feuil" & nom & prenom & "!A1" 'je ne sais pas si ce code marche bien, c'est à vérifier
end sub
Fais le par F8 et regarde si ca te convient.
Pour le lier à un bouton.
Tu créés un bouton (barre d'outils, boite de controle) cick droit lors de la crétion, lier à une macro et tu choisis cette macro.
En espérant avoir répondu à ta demande
bonjour !
d'abord un grand merci pour cette reponse rapide !
effectivement , la formule a partir de "anchor" ne fonctionne pas ...
et quand vous dites : sectionner un colonne ou il y a tjrs des valeurs , je ne pige pas
desolé pour mon inaptitude !!
encore merci
d'abord un grand merci pour cette reponse rapide !
effectivement , la formule a partir de "anchor" ne fonctionne pas ...
et quand vous dites : sectionner un colonne ou il y a tjrs des valeurs , je ne pige pas
desolé pour mon inaptitude !!
encore merci
melanie1324
Messages postés
1504
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
25 août 2009 à 14:52
25 août 2009 à 14:52
bonjour,
i et j sont des variables : i représente la ligne
j représente la colonne
le code tel qu'il est monté, va regadrer dans la cellule ligne1 colonne 1 voir si il y a une valeur.
Si oui, il va regarder dans la ligne 2 colonne 1 regarder si il y a une valeur.
Si oui, il va regarder dans la ligne 3 colonne 1 s'il y a une velur....
Jursqu'a une cellule ou il n'y a rien.
Donc quand je te dis de choisir une colonne ou tu as toujours une valeur, c'est parce qeu tu dis qu'il faut rajouter le nom et le prénom à une liste.
Donc il faut que j soit égale à la colonne ou il y a ton nom.
et i à la ligne ou le premier nom se trouve.
Mets visual basice editor et excel en parallèle et fais le code par F8, tu comprendras ce que fais le code.
Quand à anchor : essaie ca mais sans garantie
activesheet.Hyperlinks.Add Anchor:=Selection, Address:='', SubAddress:= nom & prenom & "!A1"
i et j sont des variables : i représente la ligne
j représente la colonne
le code tel qu'il est monté, va regadrer dans la cellule ligne1 colonne 1 voir si il y a une valeur.
Si oui, il va regarder dans la ligne 2 colonne 1 regarder si il y a une valeur.
Si oui, il va regarder dans la ligne 3 colonne 1 s'il y a une velur....
Jursqu'a une cellule ou il n'y a rien.
Donc quand je te dis de choisir une colonne ou tu as toujours une valeur, c'est parce qeu tu dis qu'il faut rajouter le nom et le prénom à une liste.
Donc il faut que j soit égale à la colonne ou il y a ton nom.
et i à la ligne ou le premier nom se trouve.
Mets visual basice editor et excel en parallèle et fais le code par F8, tu comprendras ce que fais le code.
Quand à anchor : essaie ca mais sans garantie
activesheet.Hyperlinks.Add Anchor:=Selection, Address:='', SubAddress:= nom & prenom & "!A1"