Copie de tableau dans cellule vide

[pierrof]

Bonjour forum
Je souhaite copier un tableau plus précisément ces cellules renseignée dans un autre emplacement.
Je souhaite copier ce tableau dans la première cellule vide comme le montre mon fichier exemple ci joint.
Merci d'avance de votre aide 😉

 

[Excel_lent]

Re : Copie de tableau dans cellule vide

Bonjour,

essaie :

Private Sub CommandButton1_Click()
Dim Tableau, der%

der = Range("BF65536").End(xlUp).Row
Tableau = ActiveSheet.Range("BF5:BL" & der).Value
Range("DH5:DN" & der) = Tableau

End Sub

@+

 

[pierrof]

Re : Copie de tableau dans cellule vide

Salut
ça ne marche pas j'ai pas de message erreur aussi bizzard...

 

[Excel_lent]

Re : Copie de tableau dans cellule vide

Re,

Regarde le fichier joint (chez moi, çà marche).
@+

 

[pierrof]

Re : Copie de tableau dans cellule vide

ça ne marche pas comme je voudrai
je veux que ça copie a la suite.
par exemple si j'apuis deux fois sur le bouton j'ai le tableau qui est copié 2 fois a la suite

 

[pierrof]

Re : Copie de tableau dans cellule vide

toujous pas😕

 

[Toine]

Re : Copie de tableau dans cellule vide

si jai bien compris tu copie un selection de celule dans une feuile (explem (A1:C4)
et si tu rapui tu voudrait que sa te le colle apre dans D1 : F4
c'est sa ??

 

[pierrof]

Re : Copie de tableau dans cellule vide

oui c'est ça je voudrai le copier a la suite donc dans la premiere cellule vide

 

[Toine]

Re : Copie de tableau dans cellule vide

alors je vait essayer de te proposer un truc avant la pose midi je cherhe et je fait le plus vite possible

 

[Toine]

Re : Copie de tableau dans cellule vide

dim t as booléan
dim i as integer 
t=false
i=0
do 
if cells(1,i) = "" then 
t=true
end if
i=i+1
loop until t = true 
(la tu met tes coordonées pour coller avec comme ligne 1 et comme collones i)

tous sa sa va dans ton bouton sur clic
il faudra sans doute adapter impeut (enfin impeut ... lol )
tien moi au courant si tu y arrive pas (même si tu y arrives 😉 )
bonne apéti

 

[pierrof]

Re : Copie de tableau dans cellule vide

J'ai pas réussi

 

[Toine]

Re : Copie de tableau dans cellule vide

fait un copier coller de ton code qui colle ton tableau stp (dans le message je peut rien dl ) merci davance

 

[pierrof]

Re : Copie de tableau dans cellule vide

C'est bon merci j'ai trouver un code qui marche:

Private Sub CommandButton1_Click()
Dim Plage As Integer, derligne As Single
Range("BF5:BL14").Copy
derligne = Sheets("Feuil1").Range("DH200").End(xlUp).Row + 1
Range("DH" & derligne).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("bj2").Select
End Sub

Merci encore

 

[Excel_lent]

Re : Copie de tableau dans cellule vide

Re,

Pour ta nouvelle demande, il suffisait de redéfinir la dernière ligne vide de la colonne DH !

Private Sub CommandButton1_Click()
Dim Tableau, der%

der = Range("BF65536").End(xlUp).Row
Tableau = ActiveSheet.Range("BF5:BL" & der).Value
der = Range("DH65536").End(xlUp).Row + 1
Range("DH5:DN" & der) = Tableau

End Sub

L'avantage, ici, est de ne pas se soucier de la taille du premier tableau.
@+

 

[Toine]

Re : Copie de tableau dans cellule vide

voila une solution qui me parait plus simple que celle que j'allais proposer devant tant de talent je m'incline ^^