Erreur post doublon

desolé erreur de post deja créé

Bonsoir,

Tu rajoutes 3 lignes à ta longue liste pour servir tes 3 cellules (et tu ne touches à rien d'autre).

Cordialement.

bonjour tous le monde,

Mais il faut que je nomme la feuil SUIVI non?

car la actuellement dans le code, ca se recopie dans les cellules sur la feuil GESTION CHANTIER

Oui dans ton instruction d'affectation :

Worksheets("SUIVI").Range("A2") = ....

Bonjour tous le monde,

Etant donné que c'est quelqu'un qui m'à aidé a faire ce code,

je ne vois pas où je dois nommer la feuille et ou je doit ecrire les 3 lignes nouvelles.

Quelqu'un pourrait m'editer mon code pour que je sache ce qui à été modifié.

merci d'avance.

Tu es tout de même à même de voir que ce code :

ws.Range("C" & Ligne) = Me.TextBox3.Value

affecte la valeur de TextBox3 à une cellule de la colonne C de la feuille GESTION CHANTIER (ws représentant la feuille et Ligne le numéro de la première ligne vide sur cette feuille).

Tu sais que tu veux affecter la même valeur à la cellule A2 de la feuille SUIVI (c'est toi qui le dis !)

Il te suffit donc de reproduire la même ligne en changeant l'adresse d'affectation, soit la partie précédant le signe =

Worksheets("SUIVI").Range("A2") = Me.TextBox3.Value

Il faut être un peu réactif vis à vis de l'aide que tu demandes et qu'on t'apporte, et cesser d'attendre l'arme au pied que quelqu'un vienne te mâcher tout le travail sans prendre la peine d'essayer de comprendre le code que tu utilises !

Cordialement.

Bonjour tous le monde,

Je ne vois pas ou je doit nommer ma feuille, à part tout en bas

Private Sub UserForm_Initialize()
  Set ws = Sheets("GESTION CHANTIER") 
Set wi = Sheets("SUIVI")  
End Sub

au debut du code, je doit ecrire aussi quelques chose concernant cette feuille? je ne vois pas a quoi correspond le a()

Dois-je reecrire Dim wi as Worksheet à coté?

Option Explicit

Dim ws As Worksheet, a()

Continue sur ton idée fixe !

Je suis vraiment nul, je ne comprend rien, ws c'est ma feuille GESTION CHANTIER???

Pourquoi ws?

Ca ne fonctionne pas svp aidez moi

Option Explicit

Dim ws As Worksheet, a()

Private Sub CommandButton1_Click()
'Ajouter
Dim Ligne As Long

  If Trim(Me.TextBox1) = "" Then
    MsgBox "Numéro obligatoire"
  ElseIf Not IsDate(Me.TextBox9) Then
    MsgBox "Date non conforme"
    Me.TextBox9 = ""
    Me.TextBox9.SetFocus
  Else
    If ws.Range("A3") <> "" Then
      Ligne = ws.Range("A2").End(xlDown).Row + 1
    Else
      Ligne = 3
    End If
    ws.Range("A" & Ligne) = Me.TextBox1.Value         ' Numéro
    ws.Range("B" & Ligne) = Me.TextBox2.Value         ' Nom
    ws.Range("C" & Ligne) = Me.TextBox3.Value         ' Client
    ws.Range("D" & Ligne) = Me.TextBox4.Value         ' Code
    ws.Range("E" & Ligne) = Me.TextBox5.Value         ' Lieu
    ws.Range("F" & Ligne) = Me.TextBox6.Value         ' Code postal et Ville
    ws.Range("G" & Ligne) = Me.TextBox7.Value         ' Tarif
    ws.Range("H" & Ligne) = Me.TextBox8.Value         ' Nombre IR
    ws.Range("I" & Ligne) = CDate(Me.TextBox9.Value)  ' Date
    ws.Range("N" & Ligne) = Me.TextBox10.Value        ' Jour de protection
    ws.Range("O" & Ligne) = Me.TextBox11.Value        ' Heure MES/MHS
    ws.Range("P" & Ligne) = Me.TextBox12.Value        ' Code client
    ws.Range("Q" & Ligne) = Me.TextBox13.Value        ' Code accès
    ws.Range("r" & Ligne) = Me.TextBox17.Value        ' cour ou rue
    ws.Range("s" & Ligne) = Me.TextBox14.Value        ' Contact
    ws.Range("t" & Ligne) = Me.TextBox15.Value        ' Téléphone
    Worksheets("Visu install").Range("A2 & Ligne") = Me.TextBox3.Value
    Worksheets("Visu install").Range("B2 & Ligne") = Me.TextBox5.Value
    Worksheets("Visu install").Range("C2 & Ligne") = Me.TextBox9.Value

    Unload Me

  End If
End Sub

Private Sub CommandButton2_Click()
' Quitter
  Unload Me
End Sub

Private Sub UserForm_Initialize()
  Set ws = Sheets("GESTION CHANTIER")

End Sub

Tu changes de feuille ! Il faut savoir ce que tu dis !

Tu dis A2, B2, C2 et tu changes la ligne de façon non maîtrisée (si Ligne =25, tu mets ta valeur en A225 !)

Soit tu fais une adaptation (mais il faut regarder ce que tu écris), soit tu recopies sans te tromper...

Si ta nouvelle feuille est la bonne, il te faut sans doute chercher le résultat quelques dizaines de lignes plus loin !

Merci pour ces indices.

en gros je doit nommé dans le code ci-dessous ma feuil Suivi install

Mais je ne vois pas comment la rediger.

Private Sub UserForm_Initialize()

Set ws = Sheets("GESTION CHANTIER")

End Sub

Mais je doit ecrire quelque chose ici aussi pour lui dire de recopier sur la prochaine ligne vide.

If ws.Range("A3") <> "" Then
      Ligne = ws.Range("A2").End(xlDown).Row + 1
    Else
      Ligne = 

Nommer ta feuille, tu l'as fait ! Enfin je crois, car d'abord SUIVI, puis Visu Install, et maintenant Suvi install....

Ces changements sont particulièrement pénibles.

L'affecter à une variable n'est pas une obligation pour que ça fonctionne !

Ensuite la ligne : ta variable Ligne est initialisée sur une ligne vide de la feuille GESTION CHANTIER.

Pour ta nouvelle feuille, d'abord tu indiques des cellules ligne 2, ensuite tu utilises la variable Ligne initialisée sur une autre feuille !

Soit la ligne est la même sur les 2 feuilles, la variable est alors utilisable, soit c'est une ligne fixe, ou alors il faut la calculer sur la bonne feuille ?

Difficile de s'y retrouver !

Rechercher des sujets similaires à "erreur post doublon"