Probleme USf de saisie

[creolia]

Bonsoir a tous

etant nouveau ici pardonner moi si je semble un peut perdu


j'ai un probleme je travail actuelement sur un projet qui conciste de gerer un planning de 71 formation pour une centaine de perssonne.

mes formations sont repartis sur 71 onglets

j'utilise un USF pour les renseigners

dans les 4 premiere colonne j'ai une formule egalité me permeetant de dupliquer la cle primaire le nom prenon et service


mon soucis est que a chaque fois je fais nouveau dans mon USF une ligne est ajouter sur ma premiere page mais pas sur les autres par concequence j'ai un decalage entre mes egalité


comment puis je faire pour ajouter des donnée soit sans que celle ligne s'incremente soit pouvoir incrementer tous a la fois


je met mon code du bouton nouveau et un fichier joint merci d'avance

Private Sub cmdnew_Click()
    Dim NL As Long
    
    NL = Worksheets("Données").Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
    Worksheets("Données").Cells(NL, 1).EntireRow.Select
    Selection.Insert Shift:=xlDown
    
    Label9.Caption = NL - 1
End Sub

[Duddy]

Bonjour le forum,

Si j'ai bien lu et bien compris, il suffit d'inhiber cette ligne de code:

Selection.Insert Shift:=xlDown
 

soit en la supprimant ou en la mettant en commentaire en ajoutant :

'Selection.Insert Shift:=xlDown
 

[creolia]

merci sa ma bien aider lol c'etait simple fallais y penser

si ou cas t'aurais une macro pour faire une egalite sur 4 colonne sur 2 page differente je suis preneur .

ex.


valeur Feuil2 |A|B|C|D| = valeur Feuil1 |A|B|C|D|


actuelement ma formule est

=Feuil1!A1

mis dans la Feuil2!A1

le probleme c'est que une mauvaise manipe et hop plus de formule quitte a etre en vba jusqu'au bout merci

[Benjîle]

comme ça

  Worksheets("Feuil1").Range("A:D").Value = Worksheets("Feuil2").Range("A:D").Value