Derniere colonne vide et 1er cellule vide [Résolu]

[Supremereboot]

Bonjour,

J'ai un fichier avec les colonnes de A à G statique et je souhaiterai completer la colonne suivant ( la H ) automatiquement. J'ai des données a mettre 1 fois par jour donc j'aimerai une macro qui me selectionne la derniere colone vide, qu'elle me marque avec un (today) le jour sur la ligne 1 et appartir de la ligne 2 jusqu'a la ligne 250 me colle mes info du jour et cela ainsi de suite tous les jours.
J'ai essayé un bout de code

Code :

1
2
3
4
Sheets("Feuil1").Select
Dim der_col As Byte
der_col = Range("IV1").End(xlToLeft).Column + 1
Cells(1, der_col) = "=TODAY()"

Il me marque bien la date du jour sur la colonne H mais apres je n'arrive pas a selectionner la ligne du dessous pour inserer mes données.

Merci a vous

[gFZT82]

Bonjour,

Voici un exemple.
Il te reste à l'adapter pour renseigner la colonne ajout avec tes données.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Sub Test()
Dim ColAjout As Integer, i As Byte
    With Worksheets("Feuil1")
        'Recherche le numéro de colonne pour l'ajout
        ColAjout = .Cells(1, Columns.Count).End(xlToLeft).Column + 1
        'Inscrit la date du jour en ligne 1
        .Cells(1, ColAjout) = Date
        'Renseigne les 250 lignes suivantes
        For i = 1 To 250
            .Cells(1, ColAjout).Offset(i, 0) = "Info" & i
        Next i
    End With
End Sub

Cordialement.

[Supremereboot]

merci gFZT82
Ton code fonctionne a merveille le prob c'est qu'en faite dans ma feuil2 j'ai 4 colonne avec des infos et ce que j'aimerai faire c un recherche v dans la feuil2 et qu'il m'insert les valeur dans la feuil1 a la place de " info ".

J4ai essayer de faire cela mais cela ne marche pas das ton code :

Code :

1
2
3
4
5
.....
For i = 1 To 250
            .Cells(1, ColAjout).Offset(i, 0) = "VLOOKUP(RC[-10],Feuil2!C[-10]:C[-7],4,FALSE)" & i
        Next i
.....

Merci encore

[Gestionnaire_rh]

Bonjour,

pour une formule de recherchev, je pense que tu a oublié .formula dans ton code.

Cordialement

[d0n32]

Bonjour,

Essaie peut-être :

Code :

.Cells(1, ColAjout).Offset(i, 0) = "=VLOOKUP(RC[-10],Feuil2!C[-10]:C[-7],4,FALSE)" & i

Cordialement,

[gFZT82]

Bonjour,

Pour que nous puissions t’aider, il faut que tu sois plus précis.

Tu souhaites placer dans ta Feuil1, une valeur que tu vas chercher dans la Feuil2.
1. Dans quelle colonne de la Feuil1 se trouve la valeur à chercher (exemple : colonne A) ?
2. Dans quelle colonne de la Feuil2 se trouve la valeur cherchée (exemple : colonne A) ?
3. Dans quelle colonne se trouve la valeur à retourner de la Feuil2 (exemple : colonne D) ?

Cordialement.