Ajouter une colonne à la première colonne vide

Pierrot93

XLDnaute Barbatruc

• 20 Avril 2011

• #2

Re : Ajouter une colonne à la première colonne vide

Bonjour,

essaye ceci :

Code:

Sheets("Feuil1").Columns(1).Copy
Sheets("Feuil2").Columns(2).Insert

bon après midi
@+

 

Vote positif 0 Vote négatif

V

vassili

XLDnaute Occasionnel

• 20 Avril 2011

• #3

Re : Ajouter une colonne à la première colonne vide

Merci sa marche super bien ^^ par contre j'aimerais savoir comment on si on veux une entete qui met la date (& now) d'aujourd'hui chaque nouvelle ajout.

Merci et a bientot

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 20 Avril 2011

• #4

Re : Ajouter une colonne à la première colonne vide

Salut vassili et le forum
Pas sûr de comprendre

Code:

Sheets("Feuil2").Range("B2") = date

Now : date + heure
A+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Avril 2011

• #5

Re : Ajouter une colonne à la première colonne vide

Re,

modifie comme suit, enfin si j'ai bien compris :

Code:

Sheets("Feuil1").Columns(1).Copy
With Sheets("Feuil2")
    .Columns(2).Insert
    .Range("B1").Value = Date
End With

 

Vote positif 0 Vote négatif

V

vassili

XLDnaute Occasionnel

• 20 Avril 2011

• #6

Re : Ajouter une colonne à la première colonne vide

Merci beaucoup sa marche du tonnerre ^^

 

Vote positif 0 Vote négatif

V

vassili

XLDnaute Occasionnel

• 28 Avril 2011

• #7

Re : Ajouter une colonne à la première colonne vide

Bonjour,

Ma question serait la suivante:

Comment récupérer la dernière colonne de la feuil2, la copié et la collé dans la feuil1 sachant que j'utilise le code fournis ci-dessus?

Merci beaucoup et à bientôt

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Avril 2011

• #8

Re : Ajouter une colonne à la première colonne vide

Bonjour,

regarde peut être ceci :

Code:

With Feuil2
    .Columns(.Range("IV1").End(xlToLeft).Column).Copy Feuil1.Range("A1")
End With

bonne journée
@+

 

Vote positif 0 Vote négatif

V

vassili

XLDnaute Occasionnel

• 28 Avril 2011

• #9

Re : Ajouter une colonne à la première colonne vide

Bonjour,

Sa ne marche pas sa m'affiche une erreur de type 424 Objet requis

a bientot

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Avril 2011

• #10

Re : Ajouter une colonne à la première colonne vide

Re,

c'est le codename de la feuille que j'ai utilisé, modifie peut être ainsi :

Code:

With Sheets("Feuil2")
    .Columns(.Range("IV1").End(xlToLeft).Column).Copy Sheets("Feuil1").Range("A1")
End With

fonctionne très bien chez moi... après il faut voir si tu n'a pas de cellules fusionnées ou autre dans ton fichier... au besoin, fait un tout petit fichier représentant uniquement le problème posé que tu mets en pièce jointe...

 

Vote positif 0 Vote négatif

V

vassili

XLDnaute Occasionnel

• 28 Avril 2011

• #11

Re : Ajouter une colonne à la première colonne vide

Re,

En faite c'est tout bon, j'avais oublié de mettre

Worksheets("Feuil1").Activate
Worksheets("Feuil1").Visible = True

Cliquez pour agrandir...

Merci à toi

 

Dernière édition: 28 Avril 2011

Vote positif 0 Vote négatif

V

vassili

XLDnaute Occasionnel

• 29 Avril 2011

• #12

Re : Ajouter une colonne à la première colonne vide

bonjour

Voila ma question est la suivante:

J'aimerais savoir comment il est possible lorsque j'insére de nouvelles ligne de mettre à jour ces colonnes dans l'historique de la feuil2 via le code ci-dessus.
En effet, les colonnes copiées sont des historiques qui ne doivent pas être modifiés au niveau de leurs contenus, mais lorsque j'insère de nouvelles lignes, il faut que cela puisse m'ajouter les lignes au bonne endroit les colonnes "historiques".

Merci et à bientot

 

Vote positif 0 Vote négatif

V

vassili

XLDnaute Occasionnel

• 29 Avril 2011

• #13

Re : Ajouter une colonne à la première colonne vide

En faite c'est bon je viens de trouvé merci quand même

 

Vote positif 0 Vote négatif