|
|
|
|
Bonjour à tous,
voila mon problème et si quelqu'un pourrait m'aider çà serait sympa.
J'ai créer un Userform pour pouvoir entrer directement des valeurs dans une feuille XL.
Dans la feuille j'ai 4 colonnes ( A B C D). Dans le USF j'ai 3 textbox dans lesquelles je rentre les valeurs pour les colonnes B C D.
J'aimerai que quand je valide les données du USF, que dans la colonne 1 de la feuille s'inscrive automatiquement une valeur.
Par exemple : je valide mes premières valeurs dans l'USF donc il faudrait en A2 = 1; si je rentre de nouvelles valeurs dans le USF A3 = 2 ect.....
Clair n'est il pas ?????
Le code pour renter les valeurs du USF vers la feuille est OK aussi pour écrire de ligne en ligne mais c'est l'incrémentation de la colonne 1 qui me pose problème
donc si quelqu'un à une idée et qu'il veut bien m'aider !!!!
Merci et bonne journée
Slt,
Private Sub cmd_Valide_Click()
If (Tbx_Col_B.Value <> "") Then
If (Tbx_Col_C.Value <> "") Then
If (Tbx_Col_D.Value <> "") Then
ActiveCell.Offset(0, 0).Value = (ActiveCell.Row - 1)
ActiveCell.Offset(0, 1).Value = Tbx_Col_B.Value
ActiveCell.Offset(0, 2).Value = Tbx_Col_C.Value
ActiveCell.Offset(0, 3).Value = Tbx_Col_D.Value
Tbx_Col_B.Value = ""
Tbx_Col_C.Value = ""
Tbx_Col_D.Value = ""
ActiveCell.Offset(1, 0).Select
End If
End If
End If
End Sub
'
Lupin |
Bonjour
|
Animation userform vba excel Apercu colonne a b c excel dans vba Chaine caractere contient vba excel Excel 2003 vba supprimer une ligne en fonction de son contenu Excel 2003 vba supprimer une ligne si la cellule est vide Excel maximum caracters per cell vba Excel vba insertion image * Excel vba range("a1") i Fonction recherche vba excel Formule texte couleur excel Impossible utiliser printer vba excel 2002 Macro excel Marquer les pages excel 2007 Printer vba excel 2002 Vba excel Vba excel 2007 Vba excel savecopyas Vba excel seriescollection line weight
