Tableau et inserer ligne dans tableau

Le 25/02/2019 à 17:00

bonjour,

voici mon problème

j'ai ma feuille 1 ou je remplis des champs et valide

une fois valider ça copie les champs et colle toutes ces données sur une même ligne dans ma feuille 2

et à chaque validation ça incrémente d'une nouvelle ligne

jusqua la tout fonctionne

mais quand je crée un tableau ( accueil mettre sous forme de tableau ) mon code ne fonctionne plus il insert les lignes à la fin du tableau et non dans le tableau (au debut)

voici mon code si quelq'un a une idée merci =)

Sheets("BT terminé").Activate

derligne = Sheets("BT terminé").Range("A65536").End(xlUp).Row + 1

Cells(derligne, 1) = Range("date_2").Value

Cells(derligne, 2) = Range("demandeur_2").Value

Cells(derligne, 3) = Range("réalisé_par_2").Value

Cells(derligne, 4) = Range("typinterv_2").Value

Cells(derligne, 5) = Range("priorité_2").Value

Cells(derligne, 6) = Range("equipement_2").Value

Cells(derligne, 7) = Range("sous_ensemble_2").Value

Cells(derligne, 8) = Range("bt_2").Value

Cells(derligne, 9) = Range("OBJET_2").Value

Cells(derligne, 10) = Range("N°_de_Gamme_Préventive_à_Imprimer2").Value

Cells(derligne, 11) = Range("Date_Prévu_de_l_intervention2").Value

Cells(derligne, 12) = Range("heure_prevu2").Value

Cells(derligne, 13) = Range("temps_prevu2").Value

Cells(derligne, 14) = Range("technicien").Value

Cells(derligne, 15) = Range("piece").Value

Cells(derligne, 16) = Range("date_fin_inter").Value

Cells(derligne, 17) = Range("heure_redemarage").Value

Cells(derligne, 18) = Range("heure_inter").Value

Cells(derligne, 19) = Range("conclusion").Value

Cells(derligne, 20) = Range("date_fin").Value

Cells(derligne, 21) = Range("heure_debut").Value

bonne fin de journée

Le 25/02/2019 à 17:22

Bonjour,

Que ce soit dans une plage de cellules ou dans un tableau (structuré) ton code copie les données sous la dernière ligne non vide.

derligne = Sheets("BT terminé").Range("A65536").End(xlUp).Row + 1

Précise ce que tu veux faire et si possible, joins un fichier.

Cdlt.

Le 26/02/2019 à 09:08

bonjour Jean-Eric

voici mon fichier

je m'explique quand je double clique sur une ligne de la feuil3 ça reprend les champs et les mais dans feuil1

je fini de remplir feuil1 quand je valide elle devrai ce mettre dans le tableau et je n'ai rien ...

pourtant le tableau est vide ..

si tu as une idée du pourquoi je suis preneur merci

2nouveau-feuille-de-calcul-microsoft-excel.xlsm (107.86 Ko)

bonne journée !!

Le 26/02/2019 à 09:57

Bonjour,

Pour le principe :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim ws As Worksheet
Dim arrCol, vCell
Dim i As Long
Const RNGCELLS As String = "C9 G9 G13 D20 D22 B16 D18 C13 B25 G19 H21 H22 H23"
    Cancel = True
    Set ws = Worksheets("Feuil1")
    arrCol = Split(RNGCELLS)
    For vCell = LBound(arrCol) To UBound(arrCol)
        i = i + 1
        ws.Range(arrCol(vCell)).Value = Me.Cells(Target.Row, i).Value
    Next vCell
End Sub

Le 26/02/2019 à 10:06

bonjour Jean-Eric

ton code fonctionne pour passé de la feuil3 à la feuil1

mais j aimerai que mes données de la feuil1 j(quand je valide avec le bouton) arrive dans le tableau de la feuil2 les un à la suite des autre

stp merci

sinon ton code est tres bien beaucoup mieux que le miens !!

Le 26/02/2019 à 11:07

Re,

Une nouvelle proposition.

J'ai viré les cellules fusionnées non utiles !...

A te relire.

Cdlt.