Contenu récent par RémiCom

Dsl j'y pensais plus. MDP: 1221 Ok je vais essayer. Merci

Bonjour, J'ai bien essayé comme vous me l'avez indiqué, apparemment ca enregistrait correctement mais ca ne marchait pas. Pour test j'ai essayé d'enlever la macro "before save" dans "Thisworkbook", et effectivement ca a marché. Je n'ai pas compris pourquoi ca ne marchait pas avant. Du coup...

Parcontre oui, je j'enlèverai les goto dès que possible vous avez raison. mais j'ai pas trop le temps en ce moment.

Bonjour Dranreb et Merci de votre aide. J'avais écris un unprotect"1221" mais comme je partage ce fichier je l'avais enlevé car j'ai découvert que c'était pas bien géré. Comme j'écris dans l'onglet base de données j'avais pas mis de protection dans celui-ci, je pensais pas que lire dans...

D'accord merci, je pensais que si la cellule était déverouillée ca marché. Et... il n'y a pas un autre code qui marche sur une feuille protégé?? Car il faudrait qu'elle reste protégée.

oui, si elle est pas vide goto 28 pour vérifier si les cellules de la lignes 12 ne sont pas vides , si elle est vide à la ligne d'après je lui demande d'aller en 26 pour afficher le message "champs verts et rouges obligatoires".

tous mes MDP dans ce fichier sont :1221

oui en effet MDP:1221. dsl

La macro en question se trouve dans le feuille3 (Saisies). Pour l'activer il faut cliquer sur le bouton en haut de l'onglet Saisie "Enregistrer sur base de données BT et ouverture pièce jointes"

Oui j'ai souvent lu que c'est déconseillé mais comme je ne suis pas un expert j'ai réussi à le faire marcher comme ça. j'ai mis le fichier comme demandé. merci beaucoup

Bonjour, Merci pour votre réponse. Ce que je souhaiterai faire ce serait comme le code précédent mais avec une seul cellule en conditions au lieu d'une plage "T11:T12", pour le reste exactement la même chose. Lorsque qu'il n'y a rien dans la cellule T12, que le message Champs vert et rouges...

?

Si j'ai bien lu, c'était pour vous expliquer. C'est que je ne sais pas écrire la suite. Je dois réécrire le passage du code "intersect" non

Au départ vous m'aviez aidé sur cette formule pour des plages et dans "Intersect()" il y avait des colonnes entières, dans cette version j'ai mis des cellules unique car je ne veux controller que les cellules de la lignes 12. du coup dans le code "Set Plg =...

Merci pour la réponse. Mais ensuite je ne sais pas comment faire pour la suite du code, car j'ai ensuite une fonction Intersect() qui ne marche pas. mon code : On Error Resume Next Set Plg = [T12].SpecialCells(xlCellTypeConstants, 23).EntireRow If Err Then GoTo 26 Set Plg =...