Ajouter une colonne à la première colonne vide

[vassili]

Bonjour,

Voilà j'aurais besoin d'un petit coup de main concernant un ajout de colonne à la première colonne (entière) vide à chaque fois que je veux inserer une nouvelle colonne. Vous pourriez m'aider?

Voilà le code:

Sheets("Feui1").Select
Columns("A:A").Select
Selection.Copy
Sheets("Feuil2").Select
Columns("B:B").Select
ActiveSheet.Paste

Merci d'avance et à bientôt

Vassili

 

[Pierrot93]

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

Bonjour,

essaye ceci :

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

bon après midi
@+

 

[vassili]

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

 

[Gorfael]

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

Salut vassili et le forum
Pas sûr de comprendre

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

Now : date + heure
A+

 

[Pierrot93]

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

Re,

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

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

 

[vassili]

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

Merci beaucoup sa marche du tonnerre ^^

 

[vassili]

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

 

[Pierrot93]

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

Bonjour,

regarde peut être ceci :

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

bonne journée
@+

 

[vassili]

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

 

[Pierrot93]

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 :

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...

 

[vassili]

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

Merci à toi

 

[vassili]

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

 

[vassili]

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

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