Contenu récent par ballmaster

Re : duplication feuilles excel Bsoir, Un peu d'aide de ta aprt serait la bienvenue. Tu pourrais par exemple, envoyer un fichier avec la feuille type que tu souhaiterais dupliquer, car la, comme ca, je dute que bcp de contributeurs te répondent en l'état. A +

Re : Problème avec nb.jours.ouvres Slt James, Ca ne fonctionne pas. J'ai nommé une plage test qui fait référence à =A1:A10;A15:A20 Avec la fonction NB.JOURS.OUVRES, en mettant test en dernier critère, ca plante -> erreur # valeur.

Re : Problème avec nb.jours.ouvres Je viens de de faire des essais et effectivement cela ne fonctionne pas !! Après avoir regardé comment se comportait la fonction NB.JOURS.OUVRES avec le boution évaluation de formule, je m'aperçois de ceci : Excel traite le derner critère d'une manière...

Re : Problème avec nb.jours.ouvres Bjr, Sous excel 2003, définir un nom se référant à une sélection multiple fonctionne. Sinon, créer ta plage en passant par la création du nom de ta plage. tu devrais avoir en formule qque chose se rapprochant de ça: =$A$1:$A$10;$A$18:$A$22 (ici...

Re : activer macro au changement d'onglet Slt diony0s, Sinon tu peux insérer ceci dans ton évenementielle de ta feuille (celle que tu souhaites conserver) Private Sub Worksheet_Activate() nf = ThisWorkbook.Sheets.Count Sheets("garder").Move After:=Sheets(nf) 'nom de la feuille à...

Re : Regrouper plusieurs "informations" dans une même cellule tapes en d1 la formule suivante : =A1&"_"&B1&"_"&C1

Re : TCD à partir d'un autre fichier Bsoir, Autre piste : Peut-être un problème de droit d'accès ??

Re : Scinder les noms d'une colonne en 2 Slt, Ton code ne vas pas. Essaie plutot celui-ci qui va teste toutes tes valeurs de ta colonne B et va copier dans la colonne D la valeur rectifiée ou non Sub Remplacer() For i = 2 To Range("B65536").End(xlUp).Row equipe = Cells(i...

Re : Scinder les noms d'une colonne en 2 Bsoir, Rajoute ceci à ton code Sub Remplacer() Dim x As Range ' ' Macro1 Macro ' Range("B2:B" & Range("B65536").End(xlUp).Row).Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _...

Re : problème Formule recherchev Bsoir, une concaténation retourne une valeur texte donc rajoutre ceci : =RECHERCHEV(CNUM(G7&G8&G9);B8:C10;2;FAUX) Cela devrait corriger ton problème

Re : Besoin d'aide sur la formule SI bjr, essaie ceci : =-D10+SI(E11=1;$G$3;$G$4) a copier vers le bas tiens moi au courant

Re : Besoin d'aide sur la formule SI slt, Peux-tu enregistrer ton fichier en xls stp.

Re : Scinder les noms d'une colonne en 2 Re, Essaie ceci Sub Remplacer() Dim x As Range For Each x In Range("B2:B" & Range("B65536").End(xlUp).Row) If x.Value = "Arminia Bielefeld " Then x.Offset(0, 2).Value = "Bielefeld" If x.Value = "VVV Venlo "...

Re : Scinder les noms d'une colonne en 2 Bjr, Tout d'abord concernant ton code, je préfère pour ma part l'ecrire de cette maniere : Private Sub Remplacer() Dim x As Range Dim y As Range For Each x In Range("B2:B" & Range("B65536").End(xlUp).Row) If x.Value = "Arminia Bielefeld "...

Re : Transformer et copier colonnes en ligne. Slt, Penses à enregistrer ton fichier en xls stp. Merci