A voir également:
- VBA mettre une fonction dans un IF
- Fonction si et - Guide
- Fonction miroir - Guide
- Fonction moyenne excel - Guide
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
- Virginie organise un rallye avec 30 équipes. elle veut créer un code pour désigner chaque équipe. elle a commencé à la main, mais elle voudrait le faire calculer à l'aide d'une formule. proposez une formule comportant une seule fonction et à recopier vers le bas dans la colonne a du fichier à télécharger. quelle formule sera en a9 ? ✓ - Forum Excel
11 réponses
Salut,
Lorsque tu crée une fonction, tu lui donne un nom...
Sub NomDeLaFonction1()
...
End sub
Pour l'utiliser dans une autre fonction il suffit d'écrire son nom
Sub NomDeLaFonction2()
If... then
NomDeLaFonction1
end if
end sub
Et ça devrait marcher
Lorsque tu crée une fonction, tu lui donne un nom...
Sub NomDeLaFonction1()
...
End sub
Pour l'utiliser dans une autre fonction il suffit d'écrire son nom
Sub NomDeLaFonction2()
If... then
NomDeLaFonction1
end if
end sub
Et ça devrait marcher
j'ai un probleme que je n'arrive pas a resoudre,
en fait dans mon programme il faut saisir des fiches et cliquer un bouton pour dire que c'est complet et je voudrais que lorsque je clique le bouton, le fiche se deplace dans un dossier "fiches completes"
je ne sais pas si ca marche vu que la fiche sera ouverte, j'ai un code qui deplace une fiche mais je ne sais pas comment faire parce ke le probleme vient de la fiche ouverte je pense.
quelqu'un sait comment faire?
Merci
en fait dans mon programme il faut saisir des fiches et cliquer un bouton pour dire que c'est complet et je voudrais que lorsque je clique le bouton, le fiche se deplace dans un dossier "fiches completes"
je ne sais pas si ca marche vu que la fiche sera ouverte, j'ai un code qui deplace une fiche mais je ne sais pas comment faire parce ke le probleme vient de la fiche ouverte je pense.
quelqu'un sait comment faire?
Merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
jai pas compris ce que tu voulais dire par fichier excel entier.
c'est juste une fiche excel ou une feuille si tu preferes... .xls
c'est juste une fiche excel ou une feuille si tu preferes... .xls
Si la fiche que tu veux enregistrer est ouverte et qu'elle est affichée tu peu essayer ça:
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\proprietaire\Mes documents\Classeur2.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Si tu remplace C:\... par le chemin de ton dossier fiche complète et classeur2 par le nom de ta fiche ça doit marcher
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\proprietaire\Mes documents\Classeur2.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Si tu remplace C:\... par le chemin de ton dossier fiche complète et classeur2 par le nom de ta fiche ça doit marcher
ok jvai essayer mais est-ce ke dans ce cas la elle est effacee de la ou elle etait??parce que je vuex qu'elle soit deplacée et pas copiée.
En fait c'est juste le code VBA pour "enregistrer sous"...
Si ta fiche est déjà enregistrée quelque part ya pas de problème elle ne sera pas déplacée.
Mais si tu veux sauver les modification que tu a fais avant ecris ce code avant celui que je t'ai envoyé
ActiveWorkbook.Save
ça enregistre dabord avant de faire "enregistrer sous"
Si ta fiche est déjà enregistrée quelque part ya pas de problème elle ne sera pas déplacée.
Mais si tu veux sauver les modification que tu a fais avant ecris ce code avant celui que je t'ai envoyé
ActiveWorkbook.Save
ça enregistre dabord avant de faire "enregistrer sous"
comment faire pour que lorsqu'un clique sur un bouton on ait une boite de dialogue qui s'ouvre (la standard) pour choisir un fichier?
Sub OuvreFichier()
Dim NomFichier as string
NomFichier = InputBox("Entrez le nom du fichier à ouvrir")
Workbooks.Open Filename:= _
"C:\Documents and Settings\proprietaire\Mes documents\" & NomFichier & ".xls"
end sub
Il te suffit de remplacer le chemin par celui du dossier où se trouve les fichier à ouvrir
Dim NomFichier as string
NomFichier = InputBox("Entrez le nom du fichier à ouvrir")
Workbooks.Open Filename:= _
"C:\Documents and Settings\proprietaire\Mes documents\" & NomFichier & ".xls"
end sub
Il te suffit de remplacer le chemin par celui du dossier où se trouve les fichier à ouvrir
