Résultats de la recherche

Re : Coller en VBA dans une cellule Salut, Une réponse rapide pour aujourd'hui et je regarderai lundi si j'ai le temps. Pour sélectionner de la cellule A1 jusqu'a une cellule Ax en s'arrêtant à la 1ère cellule vide rencontrée, voici le code: Range("A1").Select Range(Selection...

Re : Coller en VBA dans une cellule Resalut, ok c'est plus clair, je veins d'essayer de trouver une solution à ton problème, mais je ne trouve pas comment coller le tout dans une cellule. Cependant je te propose ce code: Private Sub fusionner_texte() 'Fusionne le texte de plusieurs...

Re : Coller en VBA dans une cellule Salut, Si tu utilises du code VBA, je te propose un manière plus "élégante" de faire un copier/coller si tu as un cellule de sélectionnée et que tu veux récupérer la valeur de la cellule A1 tu peux essayer ça: Selection = Range("A1").Value Cela...

Re : Bouton pour imprimer 2 onglets Resalut, Alors tu as 2 solutions pour ajouter un bouton, - il y a le bouton qui vient de la barre outils "formulaires" auquel il faut affecter une macro. Dans ton cas tu lui affectes la macro "Print_feuil1_feuil2" - il y a le bouton qui vient de la...

Re : Bouton pour imprimer 2 onglets Salut, Pour imprimer 2 onglets, il faut les sélectionner tous les 2, dans mon cas Feuil1 et Feuil2, voici le code: Sub Print_feuil1_feuil2() Sheets(Array("Feuil1", "Feuil2")).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True...

Re : Masquer données en colonnes tout en les utilisant Salut, Alors, il y a une option dans Excel pour cela. Sélection ton graphique, puis dans les barres de menu outils/options..., onglet graphique et tu décoches l'option "tracer les cellules visibles seulement". A+

Re : Message de Message Box sur plusieurs lignes Bonjour, Je n'ai pas toutes les réponses mais voici le code pour avoir un 2ème ligne : "chr(13)" MsgBox "coucou" & Chr(13) & "2ème ligne" 13 peut être remplacé par un chiffre compris entre 0 et 255. Pour avoir plus d'info, surligne...

Re : Règles Vba pour simplification du code Salut à tous, Pour remplacer : Sheets("feuil1").Select Range("F8").Select ActiveCell.FormulaR1C1 = "45" Range("F9").Select Je conseil d'utiliser "With": With Sheets("feuil1") .Range("F8").FormulaR1C1 = "45" .... .... end with...

Re : Appelle d'une macro d'un autre classeur Ok merci. La première solution marche bien, la deuxième est intéressante et je la garde en tête, cependant elle ne marche pas dans mon cas car le projet VBA est vérouillé par un mot de passe. A+

Re : Appelle d'une macro d'un autre classeur Merci pour le pdf, cependant je connaissais et cela ne résouds pas mon pb. En fait le "Classeur2" protégé par un mot de passe dans le projet VBA, n'est pas de moi et je n'ai pas le mot de passe, donc j'ai un fichier excel dans lequel je ne peux...

Bonjour à tous, Je souhaiterais appeler la macro "run" du "Classeur2" à partir du "Classeur1", quelle est la syntaxe pour cet appelle? Je pensais à un : call Workbooks("Classeur2").run mais sans succès. Petite info, mon "Classeur2" est vérouillé pas un mot de passe au niveau du...

Salut, La solution proposé par nos amis du forum est très sympa, perso ne connaissant pas cette manip je me suis fait un bouton perso pour réaliser un remplissage alterné: Sub Remplissage_alterné() 'remplissage alterné jaune/vert des lignes sélectionnées Dim MyCells As Range, MyRow...

Salut, Solution: menu Fenetre/Figer les volets: et ce en ayant sélectionné la cellule de 'croisement' de ce 'figeage' A+

Message édité par: jeromegmc, à: 08/03/2006 11:49 Message édité par: jeromegmc, à: 08/03/2006 11:50

Salut, Après un petit tour dans l'aide, avec le mot clé binaire: HEXDEC Voir aussi Convertit un nombre hexadécimal en nombre décimal. Si cette fonction n'est pas disponible et renvoie l'erreur #NOM ?, installez et chargez la macro complémentaire Utilitaire d'analyse. Procédure...

Salut, Je n'ai pas bien compris ce qui est éecris dans l'onglet 'tableau récapitulatif' mais lorsqu'il y a une 'réference externe non valide' c'est qu'une ou plusieurs cellules ont été supprimées (ou une feuille aussi), je pense que tu devrais chercher les cellules avec '#REF!' et les...

Salut, Alors 2 solutions: Soit dans ton module1 tu écris: Sub Bouton2_QuandClic() Sheets('Feuil1').Range('I8').Value = Sheets('Feuil1').TextBox1.Value End Sub Ou alors dans ton projet VBA 'Feuil1 (Feuil1)' tu écris: Sub Bouton2_QuandClic() Range('I8').Value =...

Salut, Voici quelques modifications, j'espère que cela t'aidera à comprendre la syntaxe de la fonction 'if' car je pense que tu n'as pas tout à fait compris: Sub SelectMois() Columns('A:AV').EntireColumn.Hidden = False If Range('X1') = 'JANVIER' Then...

Salut, Petit correction, et ça devrait marcher mieux: mission = InputBox('Nom de la Filiale') With ActiveSheet.PageSetup .LeftHeader = mission End With A+

Salut, Tu peux essayer ça: =DROITE('311005od641110';6) A+