Modifier une ligne dans une feuille de clacul via userform vba
Résolu/Fermé
lanetmel
Messages postés
200
Date d'inscription
mercredi 24 août 2011
Statut
Membre
Dernière intervention
15 mars 2018
-
16 avril 2013 à 03:36
Nouvelle - 21 mars 2014 à 20:56
Nouvelle - 21 mars 2014 à 20:56
A voir également:
- Modifier une ligne dans une feuille de clacul via userform vba
- Modifier dns - Guide
- Modifier liste déroulante excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Partage de photos en ligne - Guide
- Site de vente en ligne particulier - Guide
3 réponses
lanetmel
Messages postés
200
Date d'inscription
mercredi 24 août 2011
Statut
Membre
Dernière intervention
15 mars 2018
4
28 mai 2013 à 14:15
28 mai 2013 à 14:15
Voici la solution pour ceux que ça pourrait intéresser :
Private Sub Cmd_modifieretenregistrer_Click()
Dim lig As Integer
With Sheets("BABV") ' feuille ou sont mes infos d'avance
lig = .Columns("A").Find(What:=Tbox_bonachat, after:=Range("A2"), Lookat:=xlWhole).Row ' chercher dans la colonne a , mon élément de référence
.Cells(lig, "B") = Tbox_date ' va porter les infos sur la bonne ligne
.Cells(lig, "C") = Cbox_adressefournisseur
.Cells(lig, "D") = Tbox_détail
.Cells(lig, "E") = Tbox_daterequise
.Cells(lig, "F") = Cbox_termepaiement
.Cells(lig, "G") = Cbox_transport
.Cells(lig, "H") = CheckBox_fab
.Cells(lig, "I") = Cbox_adresselivraison
.Cells(lig, "J") = Label20
.Cells(lig, "L") = Tbox_description1
.Cells(lig, "M") = Tbox_quantité1
.Cells(lig, "N") = Tbox_prixmpmp1
.Cells(lig, "O") = Tbox_description2
.Cells(lig, "P") = Tbox_quantité2
.Cells(lig, "Q") = Tbox_prixmpmp2
.Cells(lig, "R") = Tbox_description3
.Cells(lig, "S") = Tbox_quantité3
.Cells(lig, "T") = Tbox_prixmpmp3
.Cells(lig, "U") = Tbox_description4
.Cells(lig, "V") = Tbox_quantité4
.Cells(lig, "W") = Tbox_prixmpmp4
.Cells(lig, "X") = Tbox_description5
.Cells(lig, "Y") = Tbox_quantité5
.Cells(lig, "Z") = Tbox_prixmpmp5
.Cells(lig, "AA") = Tbox_description6
.Cells(lig, "AB") = Tbox_quantité6
.Cells(lig, "AC") = Tbox_prixmpmp6
.Cells(lig, "AD") = Tbox_description7
.Cells(lig, "AE") = Tbox_quantité7
.Cells(lig, "AF") = Tbox_prixmpmp7
.Cells(lig, "AG") = CheckBox_cad
.Cells(lig, "AH") = CheckBox_usd
.Cells(lig, "AI") = Cbox_acheteur
.Cells(lig, "K") = Tbox_commentaires
End With
Unload Me
End Sub
Private Sub Cmd_modifieretenregistrer_Click()
Dim lig As Integer
With Sheets("BABV") ' feuille ou sont mes infos d'avance
lig = .Columns("A").Find(What:=Tbox_bonachat, after:=Range("A2"), Lookat:=xlWhole).Row ' chercher dans la colonne a , mon élément de référence
.Cells(lig, "B") = Tbox_date ' va porter les infos sur la bonne ligne
.Cells(lig, "C") = Cbox_adressefournisseur
.Cells(lig, "D") = Tbox_détail
.Cells(lig, "E") = Tbox_daterequise
.Cells(lig, "F") = Cbox_termepaiement
.Cells(lig, "G") = Cbox_transport
.Cells(lig, "H") = CheckBox_fab
.Cells(lig, "I") = Cbox_adresselivraison
.Cells(lig, "J") = Label20
.Cells(lig, "L") = Tbox_description1
.Cells(lig, "M") = Tbox_quantité1
.Cells(lig, "N") = Tbox_prixmpmp1
.Cells(lig, "O") = Tbox_description2
.Cells(lig, "P") = Tbox_quantité2
.Cells(lig, "Q") = Tbox_prixmpmp2
.Cells(lig, "R") = Tbox_description3
.Cells(lig, "S") = Tbox_quantité3
.Cells(lig, "T") = Tbox_prixmpmp3
.Cells(lig, "U") = Tbox_description4
.Cells(lig, "V") = Tbox_quantité4
.Cells(lig, "W") = Tbox_prixmpmp4
.Cells(lig, "X") = Tbox_description5
.Cells(lig, "Y") = Tbox_quantité5
.Cells(lig, "Z") = Tbox_prixmpmp5
.Cells(lig, "AA") = Tbox_description6
.Cells(lig, "AB") = Tbox_quantité6
.Cells(lig, "AC") = Tbox_prixmpmp6
.Cells(lig, "AD") = Tbox_description7
.Cells(lig, "AE") = Tbox_quantité7
.Cells(lig, "AF") = Tbox_prixmpmp7
.Cells(lig, "AG") = CheckBox_cad
.Cells(lig, "AH") = CheckBox_usd
.Cells(lig, "AI") = Cbox_acheteur
.Cells(lig, "K") = Tbox_commentaires
End With
Unload Me
End Sub
Bonsoir,
Oui, oui, c'est possible et sans effort particulier :
http://www.youtube.com/watch?v=vRqW6vudhGE
Cordialement,
PS : dans google tapez "tuto remplacer excel"
Oui, oui, c'est possible et sans effort particulier :
http://www.youtube.com/watch?v=vRqW6vudhGE
Cordialement,
PS : dans google tapez "tuto remplacer excel"
lanetmel
Messages postés
200
Date d'inscription
mercredi 24 août 2011
Statut
Membre
Dernière intervention
15 mars 2018
4
17 avril 2013 à 01:49
17 avril 2013 à 01:49
Bonjour Papaschultz
merci pour ton lien, seulement je cherchais quelque chose en Vba..
je continue mes recherches! encore merci
Mélanie
merci pour ton lien, seulement je cherchais quelque chose en Vba..
je continue mes recherches! encore merci
Mélanie
21 mars 2014 à 20:56
Merci