Comment copier dans la premiere colonne vide

Résolu
jaushua Messages postés 17 Date d'inscription   Statut Membre Dernière intervention   -  
hich24 Messages postés 1635 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

8 réponses

hich24 Messages postés 1635 Date d'inscription   Statut Membre Dernière intervention   753
 
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 )
0
jaushua Messages postés 17 Date d'inscription   Statut Membre Dernière intervention  
 
merci je teste cela tout de suite
0
jaushua Messages postés 17 Date d'inscription   Statut Membre Dernière intervention  
 
non apparement il copie bien dans la colonne 1 le premier checbox mais le suivant il recopie sur la premiere colonne
0
hich24 Messages postés 1635 Date d'inscription   Statut Membre Dernière intervention   753
 
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
jaushua Messages postés 17 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
hich24 Messages postés 1635 Date d'inscription   Statut Membre Dernière intervention   753
 
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 ?
0
jaushua Messages postés 17 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
hich24 Messages postés 1635 Date d'inscription   Statut Membre Dernière intervention   753
 
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
0