Contenu récent par soffy

  1. S

    exécution macro retirer protection

    Re : exécution macro retirer protection Bonsoir Pascal, Michel, Pierrot Merci de vos réponses, je vais lire les liens conseillés par Pascal et je tiens compte de vos remarques Michel et Pierrot. A + Sophie
  2. S

    exécution macro retirer protection

    Bonjour, :) J'ai presque finalisé mon petit planning. J'en suis au protection. J'ai protégé le classeur pour éviter que les utilisateurs face des bétises. Je veux introduire une macro qui déprotège quand une autre macro est lancée et je n'y arrive pas. J'ai introduit les deux procédures...
  3. S

    Problème dans une boucle

    Re : Problème dans une boucle Merci Bqtr Je viens de tester, ta procédure fait exactement ce que je voulais, c'est super. :) Sophie
  4. S

    Problème dans une boucle

    Re : Problème dans une boucle Merci Wilfried de t'intéresser à mon cas . :D Ci-joint le fichier zip. En fait ce que je veux faire c'est avoir la liste des gens qui ne travaillent pas par journée c'est à dire dans chaque ligne. D'abord et c'est le propos de cette demande je cherchais la...
  5. S

    Problème dans une boucle

    Re : Problème dans une boucle Bonjour Wilfried Merci de ta réponse. Cette procédure fonctionne mais ne me renvoie pas les absents c'est à dire ceux qui sont nommés dans la combobox mais pas dans ma ligne 5 .:( . Public Sub RXlibre() For i = 3 To 23 If ComboBox1 <>...
  6. S

    Problème dans une boucle

    Re : Problème dans une boucle Bonjour Wilfried Le MsgBox est corrigé mais comme je l'ai dit à bhbh je bloque sur le If Not c Then :confused:
  7. S

    Problème dans une boucle

    Re : Problème dans une boucle Bonjour bhbh J'ai ajouté le End With maintenant j'ai un message d'erreur sur le If Not c Then Merci de ta réponse Sophie
  8. S

    Problème dans une boucle

    Bonjour, Je me suis lancée à écrire une boucle et ça ne marche pas. Le déboggueur me dit Next sans For :eek: Quelqu'un pourrait-il m'expliquer mon erreur ? Public Sub RXlibre() Dim c As String For i = 3 To 23 With Sheets("PLANNING").Cells(5, i) 'recherche dans le feuille...
  9. S

    Avertir de doublons

    Re : Avertir de doublons Bonjour Bqtr Non seulement tu n'es pas hors sujet mais tu as parfaitement résolu mon problème. :) Je te remercie beaucoup. Je suis super contente. Pour info GDE signifie garde et il n'y a pas de contrôle à faire sur cette zone. Sophie
  10. S

    Avertir de doublons

    Re : Avertir de doublons Merci de ta réponse Bruno Je retravaille mon sujet et je poserai ma question de façon plus claire. :D D'ailleurs j'ai lu un sujet qui s'appelle récap doublons qui va me donner des pistes. :) Sophie
  11. S

    Lancer des procédures en une seule fois

    Re : Lancer des procédures en une seule fois Merci beaucoup Gael pour ta procédure c'est exactement ce que je souhaitais faire et ça marche impeccable. Sophie
  12. S

    Lancer des procédures en une seule fois

    Re : Lancer des procédures en une seule fois Merci Bruno :) Avec ce code là ça marche du feu de dieu Sub PlanningRX() ' ' PlanningRX Macro ' Macro enregistrée le 06/06/2007 par SG ' Dim TabIni(2) TabIni(1) = "AS": TabIni(2) = "CC" ' Etc ... For I = 1 To 2...
  13. S

    Lancer des procédures en une seule fois

    Re : Lancer des procédures en une seule fois Bonjour Bruno Merci de ta réponse. J'ai testé immédiatement :D J'ai une erreur de syntaxe dans les lignes .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="='" & Tab(I) & "'"
  14. S

    Lancer des procédures en une seule fois

    Bonjour Mon but est d'éditer autant de feuilles séparées que de personnes (AS, CC etc...) avec les initiales ressorties en rouge sur chaque feuille correspondante. Toutes les initiales sont dans la feuille RX de E6 à E25. Comment puis-je écrire une procédure condensée ? Sub...
  15. S

    Avertir de doublons

    Re : Avertir de doublons Je tente une dernière fois ma chance. Un petit coup de pouce svp. Merci Sophie