Problème de vérouillage et de copie

Bonjour j'ai encore besoin de votre aide et je vous en remercie déjà.

J'ai 2 problèmes que je n'arrive pas trouvé,

1er,,,,,..,,,je verrouille la feuille et ma toupie ne marche plus je ne comprend pas (Pourquoi?)

2eme,,,,Y a t 'il un moyen de garder cette page comme (page de référence) et avec un bouton copier enregistrer le contenue sans les boutons, dans une nouvelle feuille avec comme non de feuille le numéro de la semaine en L4C2

Merci,,,,,

Bonjour

A voir entre autre la macro WorkBookOpen

Je te remercie Banzai64 de modifier mes demandes.

Et t' il possible de vérifier si dans les colonnes (A,B,C,D,ex...) qui comporte TPS et L (heure et lieux)

Si TPS est remplit L dois être également renseigné avant de faire une sauvegarde

Merci.

Bonsoir

Le problème c'est que chaque L n'est pas associé à un TPS

A voir et à vérifier

Si pas ça envoies le fichier avec l'erreur rencontrée

Ça fonctionne bien sa donne l'erreur dés ou de la cellule.

Le texte n'est pas très explicite pour les novices à l'utilisation d'Excel mais c'est bon quand même .

On peux pas coloré la cellule qui n'est pas renseigné en rouge si c'est pas possible c'est pas grave

Merci quand même.

Bonjour

Une version avec un texte plus explicite

Pour changer la couleur du fond c'est possible mais si après il faut le remettre avec sa couleur d'origine, cela sera trop compliqué

A toi de voir

C'est très bien Banzai64 on oubli la couleur.

Merci.

Dis moi j'ai rajouté (Semaine N° 39) pour enregistrer la page.

J'ai donc fusionné les cellules A4 et B4 mais je n'arrive pas à reprendre la copie des deux cellules pour le non de la Feuille.

sa dois être simple mais bon.

On Error Resume Next
  Sheets(Range("A4").Text).Visible = True
  If Err.Number > 0 Then
    ActiveSheet.Copy after:=Sheets(Sheets.Count)
    With ActiveSheet
      .Name = Ws.Range("A4")
      .Rows.Hidden = False
      .DrawingObjects.Delete
'      For Each Sh In .Shapes
'        Sh.Delete
'      Next Sh
    End With

Bonjour

Supprimes les espaces dans la cellule A4 car le nom doit être trop grand

ou utilises

  On Error Resume Next
  Sheets(Trim(Range("A4").Text)).Visible = True
  If Err.Number > 0 Then
    ActiveSheet.Copy after:=Sheets(Sheets.Count)
    With ActiveSheet
      .Name = Trim(Ws.Range("A4"))
      .Rows.Hidden = False

Merci Banzai64

Bonjour;

Désolé javait fermé le sujet.

Mais depuis j'ai réalisé une modification du nombre de colonne et la vérification avant la copie ne marche plus.

Je ne trouve pas pourquoi peux tu regarder Banzai64

Bonjour

Il suffit de modifier les limites des deux zones vérifiées

1ère zone :

Le couple TPS-L commence en D7

Le couple TPS-L finit en U61

2ème zone :

Le couple TPS-L commence en W7

Le couple TPS-L finit en AL61

donc le code devient

  ' 1ère zone
'[barrer]Tbl1 = Range("D7:O61")[/barrer]
  Tbl1 = Range("D7:U61")
'
'
'
  ' 2ème zone
' [barrer]Tbl1 = Range("Q7:AF61")[/barrer]
  Tbl1 = Range("W7:AL61")

Cela devrait faire l'affaire

Super encore une fois MERCI Banzai64

J'ai aussi un petit truc....

Pour effacer on ce basse sur Libre 1, Libre 2 ex........

Mais je dois changer et placer un nom donc ça ne marche plus y a til une autre solution et rajouter la partie observation pour chaque non.

Merci

Bonjour

Désolé mais je ne comprends pas ce que tu veux dire

patb12 a écrit :

Pour effacer on ce basse sur Libre 1, Libre 2 ex......

Je ne crois pas, on se base sur les noms cochés

patb12 a écrit :

Mais je dois changer et placer un nom

Changer quoi ?

Placer où ?

patb12 a écrit :

rajouter la partie observation pour chaque non

Quelle partie observation ? (La vérification ?)

Fais un exemple afin que je comprenne

Désolé je vais faire plus clair.

Pour effacer la page de Référence j'ai un bouton.

Ce bouton ouvre une Userforme ou je peux choisir qui je veux effacer

ET la pour libre 1 libre2 libre 3 libre4 sa marche mais si dans ma feuille j'ai changer et mis un non a la place ( colonne A) ça ne marche plus.

Ensuite quand la fonction efface tout c'est bon mais la colonne observation n'est pas prise en compte et je voulais l’effacer aussi.

Je pense avoir été plus clair.

Merci

Bonjour

D'après ce que j'ai compris

La zone effacée est incomplète suite au rajout de colonnes

Il faut modifier la plage effacée dans la macro Private Sub CommandButton1_Click()

' [barrer]Cel.Offset(0, 2).Resize(7, 35).ClearContents[/barrer]
Cel.Offset(0, 2).Resize(7, 45).ClearContents

le problème vient du fait que tu utilises le retour à la ligne (Alt-Entrée) dans les cellules des noms

Solution ne pas l'utiliser (voir fichier)

OK pour la plage a effacer.

Oui je suis d'accord pour pouvoir effacer je change le nom dans l'Userform mais sa serait trop facile.

Les noms dans la colonne (A) libre 1 à 4 change tout le temps je ne peux pas changer a chaque fois dans l'Userform.

Y a t 'il un autre moyen ( avec la référence de la cellule peux être)

Merci

Bonsoir

A tester

Sa marche très bien ,

Je ne voudrais pas abuser mais comme je ne suis pas le seul utilisateur du système je vient de m’apercevoir qu'il serait plus simple et compréhensible que le libellé dans l'Userform (Libre 1; Libre 2 ; libre 3; Libre 4) porte le non qui seras placer dans la cellule correspondante.

Si possible et je m'arrête la.

Encore Merci pour votre aide...

Bonsoir

A tester