Contenu récent par Littledave

Re : Aide macro automatisation définition de noms de plages Re Zibouf, Alors si j'ai bien tout compris tu souhaites avoir un nom du style : nomfeuille.nom Si tel est le cas, j'ai ajouté une ligne de code qui modifie le nom à définir par nom = activesheet.name & "." & nom Sub déf_noms() Dim...

Re : formule d'interdiction de saisie Salut Energy, En effet le plus simple est de déverrouiller les cellules de la plage C5:E7 et de protéger ton classeur. @++ David

Re : Aide macro automatisation définition de noms de plages Re, Pour ton problème on remplace activesheet.names.add par activeworkbook.names.add soit le code suivant : Sub déf_noms() Dim Cel As Range, Nom As String, Réf As String Dim sh As Object For Each sh In Sheets For Each Cel In...

Re : Aide macro automatisation définition de noms de plages Salut tout le monde, Pour définir en vba un nom sur le classeur : Le classeur en cours ActiveWorkbook.Names.Add Name:="test2", RefersToR1C1:="=Feuil1!R13C8" Un classeur spécifique Workbooks("Classeur1").Names.Add Name:="test2"...

Re : Tableau fournisseurs avec formules Salut Wendy, On peut t'aider dans ton projet mais il nous faut une base de travail quand même. Combien de temps avant de rendre ton travail ? @++ David

Re : Validation par MVB avec insertion de ligne longue au fil du temps Salut djGd, J'ai ajouté Rows("10:10").PasteSpecial Paste:=xlPasteFormats qui va coller les formats des cellules de la ligne 4 sur la ligne 10. Rows("10:10").Insert Shift:=xlDown Rows("4:4").Copy Rows("10:10").PasteSpecial...

Re : Relver valeur au date demandé Salut CVin, Je te propose une première solution basée sur la formule sommeprod et l'adressage dynamique des colonnes A, B et C de la feuille Synthèse. Dans j'ai assigné le nom FinSynthese à la cellule G62. Aux cellules A1:A(FinSynthese-1) (soit A1:A61) le...

Re : Validation par MVB avec insertion de ligne longue au fil du temps Salut djGd et Pierrot, Petite remarque sur ton code Dj, tu faisais plusieurs fois la même copie. Ton code se résume au plus à Rows("10:10").Insert Shift:=xlDown Rows("4:4").Copy Rows("10:10").PasteSpecial...

Re : Créer des points de reprise genre "go to" Salut YoPub, Voici un petit exemple d'utilisation de Goto : Sub test() MaVar = "" alea = Int(Rnd() * 100) If alea < 20 Then GoTo Inf20 If alea < 40 Then GoTo Inf40 If alea < 60 Then GoTo Inf60 GoTo Sup60 Inf20: MsgBox alea & " inférieur...

Re : splash screen avec gif ou flash Re, C'est peut être dû au laps de temps du téléchargement de la musique de fond et des images qui sont stockées sur internet ? Tentes de mettre en commentaires les lignes correspondantes pour vérifier Mettre en commentaires les lignes : '...

Re : Formule: RECHERCHE - LOOKUP Salut Vinz et HoerWind, Je n'ai pas ton fichier sous les yeux mais il me semble que tu tentes d'utiliser la fonction recherche (lookup). En effet cette fonction retourne la valeur la plus proche dans le cas où l'occurrence n'est pas trouvée. Pour avoir une...

Re : splash screen avec gif ou flash Salut Fhoest, Je ne comprend pas... C'est un Splash donc une fenetre qui s'affiche pendant un laps de temps donné (ici 15 secondes) et ensuite il rend la main au classeur excel David

Re : splash screen avec gif ou flash Re, Voici un autre exemple avec cette fois un gif animé dans le splash screen... Qui a mangé mon Donut ?????? Arghhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh Ok.... Je sors :cool:

Re : Problème macro Google maps Salut, L'un de vous deux ne pourrait il pas mettre un fichier exemple en ligne ? On pourrait alors y regarder de plus près @++ David

Re : Pourcentage progessif dans une colonne Salut Pierre, Il te manque simplement une parenthèse à la fin : =SI(A1>=3;A1*1,5;SI(A1>=2;A1*1,3;SI(A1>=0,8;A1*1,2;SI(A1>=0,2;A1*1,1;A1)))) @++ David