Résultats de la recherche

Bonjour le Forum J'ai : "='Feuille d''un controle'!C6" qui me donne "Clé à choc" je voudrais : "Clé" Bien sur je voudrais la meme chose si 'Feuille d''un controle'!C6 contient un autre mot composé ou pas D'avance merci

Bonjour le Forum J'aimerais connaitre le N° de la ligne de référence de la cellule qui est colonne A : Sur l'onglet "Imprime" en : A2 j'ai =Registre!A2 en M2 je voudrais 2 A3 j'ai =Registre!A4 en M3 je voudrais 4 A4 j'ai =Registre!A3 en M4 je voudrais 3 A5 j'ai =Registre!A23 en M5 je...

Bonjour le Forum Je reviens vers vous car je bricole une recape automatique dont voici le code :Private Sub Worksheet_Activate() [A1:J1000].ClearContents 'Efface tout For I = Sheets.Count - 3 To 6 Step -1 'Tous les onglets de l'avant dernier au 5 eme nf =...

Bonjour le Forum Pour suivre du pointage, j'utilise par mois 1 feuille de 15 jours et une autre de 16. J'ai quelques soucis avec les mois de 30 jours ainsi que le mois de février aussi : Quelle formule mettre en B41 pour avoir le total de la colonne B compris dans le mois défini en A1 Voir...

Bonsoir le Forum Dans ce ZIP il y a un classeur .XLS et des fichiers .CSV Le but est de regrouper toutes les infos des fichiers.CSV sur une feuille du classeur.XLS Une macro liste les fichiers présent dans le dossier est en place. Et un exemple du résultat attendu est présent...

Bonjour le Forum Il y a t'il une formule plus élégante que : J'avais comme résultat : Le Echelles (RH0002) 519-35 est BON AU SERVICE jusqu'au 42006,16 Avec ="Le "&C6&D6&" est BON AU SERVICE jusqu'au "&JOUR(B10)&"/"&MOIS(B10)&"/"&ANNEE(B10) j'ai réussi à avoir : Le Echelles (RH0002)...

Bonjour le Forum, Voici un bout de code qui doit se déclencher lors d'un changement de valeur. Mais ce dernier ne fonctionne pas. Private Sub Worksheet_Change(ByVal Target As Range) 'Si le changement n'a pas lieu en J1 sortir If Not Application.Intersect(Target, Range("J1")) Is Nothing...

Bonjour le Forum J'ai ce bout de code qui en fonction de différents criteres choisi la bonne image (de taille et sens différent pour l'instant) If Dessin = "MD2P" Then Gauche = 50: Haut = -140: Reduc = 1: Rota = 90 If Dessin = "MG2P" Then Gauche = -20: Haut = -140: Reduc = 1: Rota = 90 If...

Bonjour le Forum J'ai un dessin "Picture 2" auquel une Macro est lié ! Je copie la feuille dans un autre classeur et je voudrais que la Macro ne soit plus attaché a cette image dans cette copie. ActiveSheet.Shapes("Picture 2").Select ................ ? D'avance merci

Bonjour le Forum Comment écrire cela : =Registre!B29 dans la formule et que le 29 et en K1 du genre : =Registre!B & K1 qui ne fonctionne pas biensur. De façon que lorsque la valeur de K1 change les données se mettent a jour. D'avance merci Dominique

Bonjour le Forum Je reviens vers vous car je bute de nouveau ! Car je voudrais déplacer l'onglet si : If DE + MP + HD = 0 Then L'onglet prendre la place de l'onglet a sa droite. Cela doit se fait dans la Macro qui suit. Afin d'avoir tous les onglets DE + MP + HD = 0 donc vert à droite...

Bonjour le Forum Voici mon nouveau souci, lors du passage d'une feuille à l'autre. Un coup sur deux j'ai les filtres en place ! Comment faire pour les avoir à tout les coups ? Lors de l'activation de la feuille les filtres doivent être libérés. Voir le fichier joint. D'avance merci

Bonjour le Forum Comment mettre un mot de passe journalier ? Du genre « 20052014 » pour aujourd’hui et « 19052014 » pour hier. Ou « 140 » pour aujourd’hui et « 139 » pour hier; qui sont les X jours depuis le premier janvier. Private Sub Workbook_Open() “??????????????????????“ Then...

Bonjour le Forum Comment masquer automatiquement une ou des lignes si celles ci sont du mois suivant voir copie d'écran jointe. Soit dans l'exemple masquer la ligne 43, les dates sont en colonne A au format JJ Soit un tableau de 31 lignes comment masquer celle qui ferons references au mois...

Bonjour le Forum Tout est dans le titre : =NB.SI($L$16:$L$69;si "F" est le 1er caractere) Comment comptabiliser les cellule ou la 1er lettre est dans mon cas un F =NB.SI(Si(Gauche($L$16:$L$69;1);"F") ne fonctionne pas =NB.SI(Si(Gauche($L$16:$L$69;1)="F" je ne sait pas la finir...

Bonjour le Forum Pour effectuer une presentation automatique j'ai ce code sur une feuille qui presente les colonnes de A à M:Private Sub Worksheet_Activate() 'A executer sur le maitre Columns("A:M").EntireColumn.AutoFit Columns("A:M").Select Range("M1").Activate...

Bonjour le Forum J'ai ce code : DL = 3 'DL = Derniere Ligne For I = 5 To Sheets.Count 'Tous les onglets a partir du 5eme nf = Sheets(I).Name Sheets(I).Tab.ColorIndex = 15 With Sheets(I) NL = .Range("L1").Value 'Nb de ligne sur l'onglet For...

Bonjour le Forum Bonjour j'ai ce code, j'aimerais que cette Macro ne colle pas cette nouvelle ligne si les valeurs des cellules A et BG sont égales à une des lignes déjà en place sur cette feuilles. Sub CopieCompteur() Sheets("Compteurs").Select Rows("6:6").Select...

Bonjour le Forum Voici des colonnes celles de gauche doit me donner celles de droite. Biensure les vides sont la pour que cet exemple soit plus clair. vide DUQUESNOY vide BAILLY vide CARBONNET vide CLEMENT vide DEMABRE...

Bonjour le Forum Sub MAJ() Sheets("Archives").Select DL = Range("A65536").End(xlUp).Row' DL = DL - 1 For LgEVS = 16 To 30 For LgArchives = 7 To DL If Sheets("Archives").Range("BI" & LgArchives).Value = Sheets("EVS à jour").Range("BI" & LgEVS).Value Then Sheets("Archives").Select ...