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 -
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
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:
- Comment copier dans la premiere colonne vide
- Déplacer colonne excel - Guide
- Trier colonne excel - Guide
- Comment supprimer une page vide sur word - Guide
- Comment copier une vidéo youtube - Guide
- Colonne word - Guide
8 réponses
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 )
sheets("feuil11").range("IV1").end(xltoleft).select
ca vas toujour selectioner la derniere colonne vide ( acodition que toujour la premiere cellule soit pleine )
non apparement il copie bien dans la colonne 1 le premier checbox mais le suivant il recopie sur la premiere colonne
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
donc tu doit changer le chiffre 1 pour avoire la le numero de la ligne qui est toujour remplie
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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 ?
tu peut citer le code que tu utilise ?
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
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