Résultats de la recherche

Bonjour, En recherchant sur le net j'ai trouvé la formule suivante pour me faire une feuille sommaire de toutes mes feuilles du classeur : Sub sommaire() Dim feuille(200) a = 0 For Each Sh In Sheets feuille(a) = Sh.Name a = a + 1 Next Sheets("sommaire loc").Cells(2, 1).Value = "SOMMAIRE DES...

Bonjour, Quand je lance mon userform j'ai les textbox suivants : TextBox3 = Sheets("Feuil1").Range("C3") * 100 TextBox4 = Sheets("Feuil1").Range("C6") TextBox5 = Sheets("Feuil1").Range("C5") TextBox1 = Sheets("Feuil1").Range("C1") TextBox2 = Sheets("Feuil1").Range("C2") TextBox6 =...

Bonjour, Dans le fichier joint, j'aimerais que dans H20 il y aille une somme de H6 à H19. Étant donné que c'est des formules de H6 à H19 qu’Excel semble prendre en texte ça ne fonctionne pas. J'ai donc ensuite essayé de faire des +, mais encore une fois ça ne fonctionne pas, car j'ai des...

Bonjour, Est-ce possible de lancer une macro si j'inscris un chiffre dans la cellule C1. Je sais que avec If Target.Address = "$C$1" je peux le faire si je click sur la cellule mais moi je veux le faire après avoir inscrit dans la cellule. Merci !

Bonjour à tous, Est-ce possible de faire une mise en forme conditionnelle pour chaque ligne si G4=A ou D ou E ou F sa mette la cellule L4 en gris. Je l'ai créé avec une formule si en L4 et sa fonctionne mais le problème est que si je supprime la formule en L4 tous disparaît. J'aimerais mieux...

Bonjour, Ma formule suivante : Private Sub ButtonOk_Click() Range("A1") = Format(Val(TextBox1.Text) / 100, "0.00%") marche très bien mais je ne trouve pas comment ajouter des décimales. Aussitôt j'essaie Private Sub ButtonOk_Click() Range("A1") = Format(Val(TextBox1.Text) / 100, "0.0000%")...

Bonjour, Je me suis fais une cédule amortissement et j'aimerais que dans la colonne C( date) à chaque changement de B8 (mois de fin d'année) il y ai un cumule de l'année pour les colonnes D, E et F. Je ne trouve pas de quel façon je pourrais le faire ? Quelqu'un a une idée, je vous joins le...

Bonjour, Je me fais plusieurs feuilles Excel avec la dernière qui est un sommaire. Est-ce possible que dans ma feuille sommaire, elle calcule aussi les nouvelles feuilles automatiques ? Dans le fond ma feuille sommaire compte en exemple F8 toutes les cellules F8 des autres feuilles comment...

Bonjour, J'utilise la formule suivante depuis plusieurs années : =SI(B8<1;"";RECHERCHEV(B8;'P:\Secrétariat et administration\AdresseClient.xls'!Liste;2;FAUX)) Va savoir pourquoi elle ne marche plus depuis aujourd'hui à l'ouverture du fichier quand j'active les macros ça m'inscrit "impossible...

Bonjour, En recherchant sur les forums j'ai réussi a produire ceci : Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "modèle" Then With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter =...

Bonjour, Dans la commande suivante avez-vous une idée ce que je peux mettre à la place de cancel=true ? Dans le fond si il met pas le bon mot de passe je veux pas que le changement que la personne fait soit accepté. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address...

Bonjour j'ai trouvé sur le net cette commande-ci : Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim Reponse As Variant Reponse = Application.InputBox("Entrez votre identifiant", "Autorisation", , , , , , 2) If VarType(Reponse) = vbBoolean Then...

Bonjour, J'ai déjà la commande suivante : Private Sub Workbook_Open() If IsEmpty(Sheets("Suivi de mandat").Range("E6").Value) Then Dim d1 d1 = InputBox(" Veuillez inscrire l'année que vous produisez", "Fin d'année", "2012") Range("B10") = d1 End If End Sub Mais je veux...

Bonjour, J'aimerais que sur la feuille " CP entretien et réparation " toutes les lignes non grise entre la ligne 9 et 244 se transporte sur la feuille appelé "facture manquante ". Est-ce que cela est possible ? Merci de votre temps

Bonjour, Est-ce qu'il est possible de faire que si j'ouvre mon fichier excel et que dans ma feuille de calcul "2010vs2009" si la cellule B10 est vide qu'il aille une fenêtre qui ouvre avec la question suivante : Veuillez inscrire l'année que vous produisez. Merci de votre temps !

Bonjour, J'aimerais que dans ma feuille "Résultat" pour chaque chiffre de la colonne A qui équivaut au montant entre la ligne A et B de la feuille "Table" sa inscrit la lettre de la ligne C je vous ai joint mon fichier pour être plus claire. Merci de votre temps!

Bonjour, J'ai créé un bouton avec la macro suivante : Sub Imp_rapport() Sheets(Array("AL facturé", "DB facturé", "RL facturé", "EC facturé", "AL débuté", "DB débuté", "EC débuté", "RL débuté")).PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False End Sub Mais je voudrais que...

Bonjour, Est-ce qu'il est possible si j'ai une base de données exemple de 300 lignes et que chaque ligne se copie dans une des 5 pages selon ce qui est inscrit dans la colonne e ? Exemple si dans la ligne 7 colonne E c'est inscrit A ça va dans la page A; si dans la ligne 8 colonne E c'est...

Bonjour, J'ai besoins que quand j'inscris quelque chose en "C" que la colonne "D" (si elle est vide seulement) recherche dans ma feuille "Base de donnée" le résultat de ma colonne "A" et inscrive la ligne "C"+365 (date + 1 an). Je ne peux pas le faire avec un recherchev parce que ma base de...