Contenu récent par danielco

Bonjour, Tu as probablement désactivé les évènements. Exécute la macro : Sub test() Application.EnableEvents = True End Sub Daniel

Bonjour à tous, Volontiers. Pour extraire le nom de la feuille, j'utilise : CELLULE("nomfichier";$A$1) qui renvoiele chemin du fichier, le nom du fichier et celui de la feuille : "d:\Users\dcola\Downloads\[suivi du prév.xlsx]Janvier"" Pour extraire "Janvier", je cherche la position de "]" ...

Bonjour, Teste : Daniel

Bonjour gbinforme, Je n'en ai pas trouvé qui corresponde à ce qui est demandé (Excel français, en ce qui me concerne).

Bonjour, Essaie le format de nombre : 0###" "##" "##" "## Daniel

Bonjour, Ca peut marcher avec un double clic. Si ça t'intéresse, dis-le. Daniel

Bonjour, Supprime la déclaration de "dossier" dans le code. Ajoute la ligne : Public dossier As String en tête d'un module standard. Daniel

Bonjour, Pas sûr d'avoir compris : =ADRESSE(PRENDRE(FILTRE(LIGNE(A:A);A:A="")-1;1);1) Daniel

Bonjour, En B11, aucune des conditions n'étant remplie, la formule renvoie "0", soit 00/01/1900 au format date. Daniel

Bonjour, Peut-être, en A3 : =LET(tbl;UNIQUE(MAKEARRAY(1000000;1;LAMBDA(x;y;ALEA.ENTRE.BORNES(1;4))));BYCOL(DANSLIGNE(tbl);LAMBDA(x;INDEX(K3:N3;x))))

Bonjour, Indépendamment de la remarque de Phil69970, voici le code commenté : Sub OKCMDE() Dim Sh As Worksheet, Typ As String 'on assigne le nom Sh à la feuille "Commandes" Set Sh = Sheets("Commandes") With Sheets("enregistrement commande") Sh.Rows("5:5").Insert Shift:=xlDown...

Bonjour, Je vais mettre des commentaires dans le code. Daniel

Oups, désolé : =SI(C2="";MOIS.DECALER(B2;48);MOIS.DECALER(C2;12)) Daniel

Bonjour, Sauf erreur : =SI(C2="";B2+4;C2+1) Daniel

Essaie : https://www.transfernow.net/dl/20240228UV1N67gE Daniel