comment copier dans la premiere colonne vide Résolu

Question

Bonjour,je cherche la procedure pour determiner ma derniere colonne vide afin de copier une colonne venant d'une autre feuil dans mon userform.

je vais tenter de m'expliqué:

dans mon userform j'ai 14 checbox représentant les 14 colonne de données de ma feuil 2(checbox1=colonne1,checbox2=colonne2,etc...)
je doit pouvoir selectionné les colonnes desirée pour les copier dans ma feuil 11 pour pouvoir imprimé et cela fonctionne bien avec le code ci-dessous.
MAIS!!!! le probleme est que si je selectionne par exemple la colonne 1 ,7 et 10 je me retrouve avec des colonnes vide entre chaque données donc je cherche desesperement comment faire pour que mes colonnes selectionnée se copy dans la premiere colonnes libre dans ma page 11.

le code que j'ai pour le moment est:

Private sub checbox1_clic()
if checbox 1.value = true then
sheets("feuil2").activate
range("a:a").select
selection. copy
sheets("feuil11").range("a1").pastespecial
end if 
end sub
Private sub checbox2_clic()
if checbox 1.value = true then
sheets("feuil2").activate
range("b:b").select
selection. copy
sheets("feuil11").range("b1").pastespecial
end if 
end sub
.
.
.
.
ainsi de suite jusque checbox14

merci pour l'aide que vous pourrez m'apporter

hich24 · Answer

pour la derinere colonne vide 

sheets("feuil11").range("IV1").end(xltoleft).select

ca vas toujour selectioner la derniere colonne vide ( acodition que toujour la premiere cellule soit pleine )

jaushua · Answer

merci je teste cela tout de suite

jaushua · Answer

non apparement il copie bien dans la colonne 1 le premier checbox mais le suivant il recopie sur la premiere colonne

hich24 · Answer

parce ce que la cellule 1 de la colonne est vide , dans ce que j'ai donnée il cherche la premiere cellule vide ( A1, B1, ...iV1)

donc tu doit changer le chiffre 1 pour avoire la le numero de la ligne qui est toujour remplie

jaushua · Answer

pourtant la premiere ligne est le titre des colonnes donc chaque colonne a la premiere ligne remplie et a chaque fois il me demande si je veux remplacer le contenu des cellules de destination

hich24 · Answer

cette fhrase que je vous est donner tu doit la mettre sur tout les case a cocher , sinon il faut mettre un button qui regroupe l'action de collage d'apres les case cocher 

tu peut citer le code que tu utilise ?

jaushua · Answer

c'est pourtant ce que j'ai fais voici mon code comme ca tu pourras voir si tu as une idee

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then
Sheets("feuil2").Activate
Range("a:a").Select
Selection.Copy

Sheets("feuil11").Activate
Sheets("feuil11").Range("IV1").End(xlToLeft).Select

Selection.PasteSpecial
End If
End Sub
Private Sub CheckBox2_Click()

If CheckBox2.Value = True Then
Sheets("feuil2").Activate
Range("b:b").Select
Selection.Copy
Sheets("feuil11").Activate
Sheets("feuil11").Range("IV1").End(xlToLeft).Select

Selection.PasteSpecial
End If
End Sub
ainsi de suite j'usqu'au checbox 14
mais je vois pas ou est l'erreur
ou alors faire un code que je peut mettre dans mon bouton qui doit imprimer la feuil 11 afin qu'il suppirme les colonnes vide mais je sais pas comment faire

hich24 · Answer

en essaye autre chose , 
Sheets("feuil11").Range("IV1").End(xlToLeft).offset(0,1).Select 

je croix que c'estait le probleme en ajoutant offset il va sur la derniere colonne pleine +1 

inchallah ca devra marcher

Comment copier dans la premiere colonne vide

8 réponses

Discussions similaires

Newsletters