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

A voir également:

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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 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 ?

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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 673 Date d'inscription Statut Membre Dernière intervention 4

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

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re,

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

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

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

Dechiffrer une image caché

image ?

visualiser une image présente dans le cache

test si valeur dans une plage

Votre réponse

Discussions similaires