Contenu récent par fleet21

Une variable ref qui prend le résultat d’une requête ne s’actualise pas en appuyant le commandbouton ’’valider’’ d’un userform. J’ai essayé avec les méthodes Refresh, ActiveWorkbook.RefreshAll et le paramétrage du userform en mode non modal sans succès. Idem avec la partie traitement du code qui...

Par contre je ne trouve plus comment mettre les sujets en résolu

Je n'ai qu'un seul mot à dire : EXCELLENT !!! Merci Dranreb

Bonjour à tous, Je voudrais modifier l'extension d'un fichier créé xlsx en xlsm pour qu'il puisse prendre en charge les macros. Option Explicit Dim var As String Chm = "C:\Users\Poste_1\Desktop\" ActiveWorkbook.SaveAs Filename:=Chm & var & ".xlsx", FileFormat:=xlOpenXMLWorkbook...

En effet code et bouton reste lié avec le CommanButton, un grand merci Dranreb :)

Merci Dranreb. Ce code posté plus haut est placé dans un userform et le code du bouton est placé dans la feuille de l'onglet 2 du fichier d'origine. Mon souci est de lier, lors de la création du nouveau fichier et des onglets associés, le bouton de chaque onglet avec le code copié et donc déjà...

Le code du bouton doit-il se trouver dans chaque onglet, en module , autre ?

Bonjour, Je voudrais attribuer une macro à chaque bouton identique de plusieurs onglets (3 pour l'exemple). Le copiage du code s’effectue correctement avec la copie de l’onglet mais le bouton ne pointe plus vers le code, il s'agit des deux lignes '''attribution bouton <-> macro'' qui ne...

La déclaration de la variable NOM est dans le post n°1 => en string. Finalement à force d'essais, j'ai trouvé une solution viable : Workbooks("Fichier 1").Sheets("Tableau").Copy After:=Workbooks(var).Sheets(3) Avec var = nom de fichier. Merci pour ton aide Patrice33740.

Bonjour, Ce code génére une erreur : Erreur de compilation Objet requis avec NOM de la ligne "Set NOM = Workbooks(var)" et en validant le message d'erreur une flèche jaune à gauche de la ligne de code Sub test(). La variable NOM est déclarée en nom String il doit manquer quelquechose mais je ne...

Bonjour à tous, Je souhaite faire des manipulations avec un fichier nommé avec une variable et comme le nom de fichier change il faudrait une formule générique basée sur cette variable saisie (contenu de la variable = nom du fichier), le but est d'obtenir un code du type : Set NOM =...

Qu'est ce que tu ne comprends pas ? Pas grand monde ouvre les fichiers joints sur le site, je le remarque au fil des discussions, et un fichier n'aidera pas plus vu qu'il n'est pas fonctionnel. Indiques ce qu'il te manque comme informations pour ta compréhension car ton commentaire n'est pas...

Bonjour, Voici ce que je souhaite faire : lors d'un appui sur le togglebutton copier deux cellules O2 :B2 en B2:C2 et si on rappuie sur le bouton que les deux cellules copiées en Bx:Cx soient effacées. Si des données sont présentes en Bx+1:Cx+1 elles sont remontées d'une ligne pour ne pas...

Merci à vous deux pour vos solutions.

Bonjour, je voudrais mettre une condition de colonnes masquées sur un CommandButton selon qu'il soit activé ou pas. Voici l'essai mais il ne fonctionne pas : Worksheets(1).Columns("D:E").EntireColumn.Hidden = CommandButton1.Value Ensuite le but est de coloriser le bouton en fonction de son...