Résultats de la recherche

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 =...

Bonsoir, en fait le fichier était protégé car j'avais copier un "sous-dossier " contenant ces fichiers qui était en lecteur seul et dans le nouvel emplacement il avait gardé sa protection. donc résolu. Parcontre j'aurai une question, le code: Set Plg =...

Mon code en entier: Sub Enregister_sur_Base_Données_BT() ActiveSheet.Unprotect "1221" 'DESACTIVATION protection feuille - Mot de passe = 1221 Dim LastRow As Long Dim WsDepart As Worksheet Dim WsDestination As Worksheet Dim Num_BT As String 'Dim Ce_Classeur As String' Dim...

Rebonjour. Depuis la dernière fois avec la même base j'ai fait plusieurs codes. Mais j'ai un problème sur un. A la fin d'une macro je viens ouvrir un fichier pour pourvoir insérer une pièce jointe. Ca marche bien, le problème c'est que ce fichier est protégé. Et même en rajoutant le mot de...

Bonjour Dranreb, Bonne année et meilleurs vœux. je ne suis pas encore assez calé, je n'arrive pas à faire fonctionner ce code. J'ai copié/collé le bloc mais ca ne marche pas . le code "colLignesoùCondR1C1" est surligné.

Je sais pas comment l'écrire. Pourriez-vous m'éclaircir svp? Merci Bonne soirée