erreur post doublon Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
p
pouns94
Membre fidèle
Membre fidèle
Messages : 470
Inscrit le : 30 janvier 2016
Version d'Excel : 2010

Message par pouns94 » 25 septembre 2016, 01:40

desolé erreur de post deja créé
Modifié en dernier par pouns94 le 22 octobre 2016, 00:18, modifié 1 fois.
Impossible avec Excel ?? pffff impossible :)
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'203
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 25 septembre 2016, 03:38

Bonsoir,

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

Cordialement.
p
pouns94
Membre fidèle
Membre fidèle
Messages : 470
Inscrit le : 30 janvier 2016
Version d'Excel : 2010

Message par pouns94 » 25 septembre 2016, 12:21

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
Impossible avec Excel ?? pffff impossible :)
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'203
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 25 septembre 2016, 12:43

Oui dans ton instruction d'affectation :
Worksheets("SUIVI").Range("A2") = ....
p
pouns94
Membre fidèle
Membre fidèle
Messages : 470
Inscrit le : 30 janvier 2016
Version d'Excel : 2010

Message par pouns94 » 25 septembre 2016, 15:03

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.
Impossible avec Excel ?? pffff impossible :)
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'203
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 25 septembre 2016, 15:21

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. :D
p
pouns94
Membre fidèle
Membre fidèle
Messages : 470
Inscrit le : 30 janvier 2016
Version d'Excel : 2010

Message par pouns94 » 25 septembre 2016, 18:25

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()
Impossible avec Excel ?? pffff impossible :)
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'203
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 25 septembre 2016, 18:57

Continue sur ton idée fixe ! :lol:
p
pouns94
Membre fidèle
Membre fidèle
Messages : 470
Inscrit le : 30 janvier 2016
Version d'Excel : 2010

Message par pouns94 » 25 septembre 2016, 22:01

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

Pourquoi ws?
Impossible avec Excel ?? pffff impossible :)
p
pouns94
Membre fidèle
Membre fidèle
Messages : 470
Inscrit le : 30 janvier 2016
Version d'Excel : 2010

Message par pouns94 » 25 septembre 2016, 22:39

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
Impossible avec Excel ?? pffff impossible :)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message