Résultats de la recherche

Bonjour à tous, Bien triste nouvelle. JB était un grand d'XLD et d'Excel. Meilleures pensées tardives à sa famille. Coucou à Patrick, David, Gérard et "les anciens". A+ à tous

Bonjour à tous, Merci pour vos bon vœux reçus après un voyage de six mois. Bises à ma très chère G et à mon très cher Luc. Amitiés à tous.

Bonjour à tous, Remplace : Accueil.Range("a31") = Left(t, 50) par Sheets("Accueil").Range("a31") = Left(t, 50) A+ à tous

Bonjour à tous, Bienvenue sur XLD Peux-tu essayer en D2 de Broc1 : =RECHERCHEV(C2;info!B:C;2;0) Renseigne C2... A+ à tous

Bonjour à tous, Salut Philippe, Salut Patrick, Au plus simple : Option Explicit Sub Impression() Dim Lig& [R4].Font.ThemeColor = xlThemeColorDark1 For Lig = 1 To 10 [Q4] = Lig ActiveSheet.PrintPreview 'ActiveSheet.PrintOut Next Lig...

Bonjour à tous, Tu multiplies par 1. A+ à tous

Bonjour à tous, Salut aux Patrick.... Peux-tu essayer en affectant ce code à ton bouton Sub Valider() [C5] = IIf([E1] <= Time(), "B", "A") End Sub A+ à tous

Bonjour à tous, Salut Chris, Salut Cisco, Ceci : =DATE(M2;MOIS(M4*7+DATE(M2;1;1));1)+(M4-NO.SEMAINE(DATE(M2;MOIS(M4*7+DATE(M2;1;1));1)))*7-JOURSEM(DATE(M2;MOIS(M4*7+DATE(M2;1;1));1)+(M4-NO.SEMAINE(DATE(M2;MOIS(M4*7+DATE(M2;1;1));1)))*7)+2 peut se réduire à ceci ...

Bonjour à tous, Salut Philippe, Peux-tu essayer : Application.Union(Range("A6:A6000"), Range("D5:D6000"), Range("K2"), Range("M2")).ClearContents Range("K2")="Texte" Range("M2")="Mots" A+ à tous

Bonjour à tous, Ce jour à 18:42 A+ à tous

Bonjour à tous, Peux-tu essayer : =RECHERCHEV(GAUCHE(LC(-1);TROUVE("/";LC(-1)))&"*";L2C4:L6C4;1;FAUX) A+ à tous Edition : Bonjour JHA

Bonjour à tous, Ici : A+ à tous

Bonjour à tous, [D4].Replace What:=" ", Replacement:="_" A+ à tous

Bonjour à tous, Peux-tu essayer avec : Cells.Replace What:=" ", Replacement:="_" A+ à tous

Bonjour à tous, C'est un modèle Microsoft Excel. A+ à tous

Bonjour à tous, La police Cambria est apparue, soit, mais elle n'est pas sélectionnable dans la MeFC. Voir le message de Job75 en #13. A+ à tous

Bonjour à tous, Salut Gérard, Voir le #8.... A+ à tous

Bonjour à tous, A+ à tous

Bonjour à tous, En utilisant la police Wingdings sur la colonne, peut-être... A+ à tous

Bonjour à tous, A tester : =SI(ET(C2<>"";E2<>"");0;SI(C2<>"";C2;SI(ET(B2="";E2="");MAX(A2;D2)))) Merci de préciser ta version XL pour la Gestion des Erreurs. A+ à tous