Contenu récent par Pierre

Michel , le forum en déclarant Dim nomzone As Range et en affectant par Set nomzone = ActiveSheet.Range('A25:D25,A169:D178') tu pourra faire référence à cett plage de cellule en appellant son nom. Hope this will help you. Pierre

Re, J'ai oublié de te préciser que avec ce code si la ligne contient deux fois le chiffre 2, la ligne est copiée deux fois sur le feuille 2. Si besoins on peut l'éviter. @+ Pierre

Bonjour Sonskri et le forum, en pièce jointe un exemple que tu pourras adapter à tes besoins. Bon dimanche. Pierre [file name=sonskri.zip size=10225]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/sonskri.zip[/file]

Re:Comment connaitre le nom de la feuille en cours OOps, pas assez rapide, sorry

Re:Comment connaitre le nom de la feuille en cours Bonsoir Samirou, ActiveSheet.toutcequetuveux te renvoie à la feuille active. Est-ce cela que tu souhaitais? @+ Pierre

Bonjour le fil et le forum, la même logique que lapix mais en incluant les années =SI(ET(MOIS(date1)=MOIS(date2);ANNEE(date1)=ANNEE(date2));'True';'False') Bon WE

Re, Lorsque tu as ouvert ton classeur Excel, si tu presses alt-F11 tu ouvres l'éditeur VBA (le VBE), et tu te trouves devant une nouvelle interface avec à droite en haut le projet où tu sélectionnes le classeur. La partie principale de l'écran est occupé par la fenêtre de code...

Bonjour XpremierX et Galopin01, en clair c'est relativement court 1 Private Sub Worksheet_Calculate() 2 Dim cell As Range 3 Set cell = Worksheets('feuil1').Range('E15') 4 If cell.Value = 15 Then Worksheets('feuil1').PrintOut 5 End Sub 1 Lors du recalcul de la feuille 2 Déclaration...

Re:comment afficher le nom des sheets dans un text BOnjor Thomas et le forum, Es-tu sûr de vouloir placer la liste dans un textBox? Ne préfèrerais-tu pas un listeBox ou un comboBox? Dim WS As Worksheet With Me.ComboBox1 For Each WS In ThisWorkbook.Worksheets .AddItem WS.Name...

Bonjour Riddick, ce petit bout e code compte dans la plage c2:c10 le nombre de mots se terminant par 'ent et affiche le résultat en E2. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim c, but As Range Dim cpt, lg As Long Set but = Worksheets('feuil1').Range('E2') cpt...

Re:Exclure des Sheets d'une fonction For each WS . Bonsoir Guigui, For Each ws In ThisWorkbook.Worksheets If ws.Name = 'Feuil1' Or ws.Name = ' ' Or ws.Name = 'Feuil2' Then Else AddItem ws.Name End If Next Ceci devrait te convenir, en mettant entre guillemets les...

Salut à tous, Mdr Gérard... :) T'imagines les poulets en kimono? :woohoo:

Bonsoir jmr, pourrais-tu être plus explicite? J'avoue e pas très bien saisir ce que tu demande. Pierre

Bonsoir Xpremier X, Voici un petit classeur qui imprime lorsque E15 = 15 Hope this will help you Pierre [file name=PourXpremierX.zip size=6079]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PourXpremierX.zip[/file]

Re, j'ai pas du re-booter correctement... Je le vois pas le fichier... :) Petit rappel pour un fichier joint format zip moins de 50 Ko et ps d'espaces ou de caractères accentués. @+ Pierre