Résultats de la recherche

Bonjour chez vous Pour une mission d'interim , je suis amené à travailler sur ces logiciels Je cherche donc quelqu'un pouvant m'aider . Dans un premier temps, je cherche un glossaire de tous les sigles et abréviations utilisés de la terminologie propre à (d'après ce que j'ai compris) la M52...

Re : macro permettant de supprimer des valeurs dans plusieurs feuilles + tri alpha Bonsoir chez vous Une nouvelle mouture. ( le décalage était du à l'utilisation de la colonne A par le code VBA)

Re : macro permettant de supprimer des valeurs dans plusieurs feuilles + tri alpha Bonjour chez vous Voir la pièce jointe, à laquelle j'ai adjoint des commentaires dans le code VBA

Re : macro permettant de supprimer des valeurs dans plusieurs feuilles + tri alpha Bonsoir chez vous niiiiiiiiiico: Dans la dernière pièce jointe j'avais laissé (mais mis en commentaires) la précédente version. Pour effacer seulement le contenu , reprendre cette partie de la macro

Re : macro print plusieurs feuilles Le bonsoir de nouveau chez vous Merci aux relayeurs qui ont pris la suite :)

Re : macro print plusieurs feuilles birac Je dois m'absenter 2 heures D'autres gens du forum prendront la suite. Je repasserai plus tard Désolé

Re : macro print plusieurs feuilles Bonjour chez vous Une autre possiblité Sub macro() Dim j As Long For j = 1 To 3 Worksheets("i" & j).PageSetup.PrintArea = Worksheets("i" & j).Range("O1:U56").Address Next j Sheets(Array("i1", "i2", "i3")).PrintOut Copies:=1, _ ActivePrinter:="CutePDF...

Re : placement de chiffres Le bonsoir de nouveau à tous Voici une version en VBA J'ai utilisé une procédure écrite par F. Sigonneau. (pour la partie tri aléatoire)

Re : placement de chiffres Bonsoir chez vous De retour dans les aléas phil59110: Dans ton premier message dans ta pièce jointe, tu écris : Or comment mettre les 13 cellules de C7:C20 dans la plage M3:P7 ( 16 cellules ) :confused: Il y aura des cellules vides non ? Bravo à tous...

Re : placement de chiffres Voir la pièce jointe Il y a encore parfois des doublons, mais moins souvent :o Appuie sur F9 pour changer les chiffres

Re : placement de chiffres Bonjour chez vous Je cherche pour que cela fonctionne sans doublons car avec cette formule il y a doublons =INDEX($C$7:$C$20;(ENT(ALEA()*13+1)))

Re : macro ecrire formule dans cellule vide Bonjour chez vous Voici une possibilité Sub macro() Dim cellules As Range, formules As String Set cellules = Range("C15:C52").SpecialCells(xlCellTypeBlanks) formules = "=SI(NON(ESTVIDE(B15));RECHERCHEV(B15;'liste des...

Re : selection d'une plage de cellules non vide Bonsoir chez vous Mon interprétation de la question posée Sub macro() Dim cell_ligne As Range Dim N_Test As String N_Test = ActiveCell.Value Set cell_ligne = ActiveSheet.Range("b3:b32").Find(N_Test) cell_ligne.Resize(33 -...

Re : macro permettant de supprimer des valeurs dans plusieurs feuilles + tri alpha Bonsoir chez vous Une nouvelle version dans la pièce ci-jointe

Re : macro permettant de supprimer des valeurs dans plusieurs feuilles + tri alpha Bonjour chez vous Je viens de retester ma pièce jointe le bouton1 supprime bien la valeur dans les feuilles désirées non ? le bouton 2 ajoute la valeur dans la base de données et dans les 2 autres...

Re : Besoin d'aide pour réaliser une macro Bonjour chez vous Tu peux mettre un exemple avec le résultat souhaité (basé sur ton précédent fichier joint) rempli manuellement sur la feuille Par exemple pour la colonne Date (quelle la cellule source sur la feuille Fichier de départ ?)...

Re : Formule selection de valeur dans 1 cellule Bonjour chez vous Une autre formule (non matricielle) =-RECHERCHE(1; -STXT(A1;MIN(TROUVE({0.1.2.3.4.5.6.7.8.9};A1&"0123456789"));LIGNE(INDIRECT("1:"&NBCAR(A1))))) (Formule également écrite par un MVP aussi )

Re : couleurs avec macro sous excel2000 Bonsoir chez vous Voici une proposition avec Switch Sub macro() Dim wf As WorksheetFunction Set wf = Application.WorksheetFunction Range("D5:E5").Interior.ColorIndex = Switch((wf.CountBlank(Range("D5:E5")) = 2), 16...

Re : URGENT !! Pied de page et référence à une cellule Bonjour chez vous Pour la macro Impressionglobale2 tu peux alléger ton code ainsi Sheets(Array("Feuil1", "Feuil2", "Feuil3")).PrintOut Copies:=1, Collate:=True Mettre le bon nom des feuilles à imprimer.

Re : Copie feuil Rebonsoir chez vous Pour tester si la feuille Masque existe Sub macro() Dim wkB As Workbook Set wkB = Workbooks.Open(ThisWorkbook.Path & "\MSL.xls") If Not WorksheetExists("Masque") Then ThisWorkbook.Sheets("Masque").Copy After:=wkB.Sheets(Sheets.Count) 'Changer...