Valeurs textbox dans plage

Résolu/Fermé

surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - Modifié par surplus le 6/06/2014 à 06:50
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - 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

A voir également:

1 réponse

Réponse 1 / 1

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
Modifié par f894009 le 6/06/2014 à 07:51

Bonjour,

ligne premiere cellule vide d'une plage nommee:

Sub test()
    x = Range("Ma_Plage").Cells.SpecialCells(xlCellTypeBlanks).Range("A1").Row
End Sub

surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
6 juin 2014 à 13:24

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 ?

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
6 juin 2014 à 13:39

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

surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
6 juin 2014 à 14:01

Re
ca ne fonctionne pas
pourquoi
if Cel = 5 Then ?

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
6 juin 2014 à 14:03

Re,

Vous allez peut-etre l'adapter a votre programme, je vous donne un exemple generique

surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
7 juin 2014 à 08:34

Re

j'ai su l"adapter tout fonctionne comme je voulais
merci

Discussions similaires

Dechiffrer une image caché

test si valeur dans une plage

image ?

Retrouver moi l'original

Original photo