Valeurs textbox dans plage

Résolu

surplus Messages postés 673 Date d'inscription Statut Membre Dernière intervention -
surplus Messages postés 673 Date d'inscription Statut Membre Dernière intervention - 7 juin 2014 à 08:34

Bonjour,
je sais transferer dans une feuille les valeurs des textbox dans la derniere ligne vide
mais comment faire pour transferer dans une plage donnée?
j'ai nommée la plage "A16:A28" en "ref_vente" au cas ou
j'ai fait cette macro

Private Sub b_ok_Click()
 Application.ScreenUpdating = False
 Sheets("Facture_Devis").Unprotect
 fVTE = Sheets("Facture_Devis")
 Ligne = fVTE.Range("A16:A28").End(xlUp).Row + 1
 fVTE.Cells(Ligne, 1) = Me.ComboBox1
 fVTE.Cells(Ligne, 2) = Me.TextBox1
 fVTE.Cells(Ligne, 3) = Me.TextBox2
Sheets("Facture_Devis").Protect
  Application.ScreenUpdating = True
End Sub

ça transfère dans la feuille la 1ere fois bien après ça saute en haut en bas ça suit pas
en fait je voudrais transférer de A16 à A28 en descendant
merci de votre aide
-
Slts A bientôt
Surplus

Afficher la suite

1 réponse

Réponse 1 / 1
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717
Bonjour,

ligne premiere cellule vide d'une plage nommee:
```
Sub test()
    x = Range("Ma_Plage").Cells.SpecialCells(xlCellTypeBlanks).Range("A1").Row
End Sub
```
0
1. surplus Messages postés 673 Date d'inscription Statut Membre Dernière intervention 4
  
  Bonjour
  impeccable comme touj
  si je dois verifier qu'une ligne nesoit pas la meme dans ma plage puisque ça doit etre une facture ou un devis
  je dois mettre
  if ComboBox1=("Ma_plage") exit sub ?
  
  0
2. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717
  
  Re
  
  Sub test()
  Set Plage = Range("Ma_Plage")
  For Each Cel In Plage
  If Cel = 5 Then
  MsgBox ("Deja dans la liste!!!!")
  Exit Sub
  End If
  Next Cel
  End Sub
  
  ou
  
  Sub test1()
  For Each Cel In Range("Ma_Plage")
  If Cel = 5 Then
  MsgBox ("Deja dans la liste!!!!")
  Exit Sub
  End If
  Next Cel
  End Sub
  
  0
3. surplus Messages postés 673 Date d'inscription Statut Membre Dernière intervention 4
  
  Re
  ca ne fonctionne pas
  pourquoi
  if Cel = 5 Then ?
  
  0
4. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717
  
  Re,
  
  Vous allez peut-etre l'adapter a votre programme, je vous donne un exemple generique
  
  0
5. surplus Messages postés 673 Date d'inscription Statut Membre Dernière intervention 4
  
  Re
  
  j'ai su l"adapter tout fonctionne comme je voulais
  merci
  
  0

Valeurs textbox dans plage

1 réponse

Discussions similaires

Newsletters