Enregistrement dernière ligne et modif VBA
Bonjour,
En onglet "par jour" j'ai mis un commentaire des anomalies non résolues.
Dans le fichier en onglet "a" je saisie pour chaque personnes "x" = journée, "am" après midi et "m" pour le matin.
Cela copie dans l'onglets "par jour", sauf que lorsque je saisie un "am" et après "x" cela efface le précedent.
Ensuite en cas de modif de l'onglet "a" la ligne s'efface en onglet "par jour" sans remonter les suivant afin d'éviter les ligne vide.
En espérant être assez explicite.
Cdt
Bonjour julien35000,
Il me semble que c'est "am" = avant-midi et "pm" = après-midi ...
Je ça ... je dis rien ...
ric
Bonjour,
Oui en language bilingue, sauf que moi mon fichier et son utilisation de planning est différent.
Cdt
Bonjour julien35000,
Un essai ...
Les noms s'enregistrent bien en faisant la différence entre "Durand Philippe" et "Durand Isidore" ...
Si tu tapes autre chose que "m", "am" ou "x" ... la cellule se vide ...
Les suppressions fonctionnent bien ... il n'y a plus de lignes vides intercalées ...
J'ai limité l'action de la procédure à la plage "E7:AI38" ...
Le bouton rouge "EFFACE" sur la feuille "a" et sur la feuille "PAR JOUR" ...
Pour aider à comprendre le code ... fait un pas-à-pas sur la procédure > voir ma signature 2e et 3e lignes ...
A+
ric
Re bonjour Ric,
Je fais un test rapide cela fonctionne parfaitement à mon souhait. Je retranscrit avec les vrai données et je vous redis, en attendant Merci!
Re,
J'aurais une modif pour le code effacer.
Sub effacer()
'
' effacer Macro
Dim X As Integer, Z As Integer
Application.EnableEvents = False
With Worksheets("a")
.Activate
.Range("E7:AI38").ClearContents
End With
With Worksheets("PAR JOUR")
.Activate
For X = 21 To 621 Step 20
.Range("G" & X & ":I" & X + 14).ClearContents
Next X
End With
Application.EnableEvents = True
Worksheets("a").Activate
End Sub
l'onglet "a" et "par jour" change de nom ex "par jour janvier, par jour fevrier... et pour "a" mois janvier, mois fevrier
Ma question est es ce que je doit répéter le code pour chaque feuille en modifiant le nom à chaque fois ou es ce que le code peut être universelle pour chaque onglet actif?
Merci
Bonjour julien35000,
Il faut dynamiser ... sinon ... cela n'aurait pas d'allure ...
Je regarde et te reviens bientôt ...
ric
es ce que je peux vous joindre le fichier d'origine afin de mieux comprendre mon soucis en privé?
Bonjour julien3500,
Bien sûr ...
ric
Bonsoir Ric,
Je vais procéder autrement pour le bouton effacer, en tout cas Merci!!
Bonjour julien35000,
Il ne devrait pas rester grand souci dans ce fichier-ci ...
Tu peux ajouter/supprimer des enregistrements ...
Le bouton rouge "EFFACE" sur la feuille du mois fonctionne bien, quel que soit le mois en cours ...
A+
ric