Comment copier dans la premiere colonne vide

Résolu/Fermé
jaushua Messages postés 17 Date d'inscription mardi 4 février 2003 Statut Membre Dernière intervention 17 mai 2009 - 13 mai 2009 à 17:50
hich24 Messages postés 1619 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 11 avril 2023 - 17 mai 2009 à 09:43
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

8 réponses

hich24 Messages postés 1619 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 11 avril 2023 752
13 mai 2009 à 17:58
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 mardi 4 février 2003 Statut Membre Dernière intervention 17 mai 2009
13 mai 2009 à 21:45
merci je teste cela tout de suite
0
jaushua Messages postés 17 Date d'inscription mardi 4 février 2003 Statut Membre Dernière intervention 17 mai 2009
13 mai 2009 à 22:01
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 1619 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 11 avril 2023 752
14 mai 2009 à 10:23
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 mardi 4 février 2003 Statut Membre Dernière intervention 17 mai 2009
14 mai 2009 à 20:51
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 1619 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 11 avril 2023 752
15 mai 2009 à 11:06
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 mardi 4 février 2003 Statut Membre Dernière intervention 17 mai 2009
17 mai 2009 à 00:02
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 1619 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 11 avril 2023 752
17 mai 2009 à 09:43
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