Copie d'une cellule qui dépend de la cellule active

Bonjour à toutes et à tous,

Je bloque sur action à réaliser.

J'ai créé deux boutons, un absence et l'autre présence. A chaque clique sur ces boutons les noms apparaissent dans un tableau à côté en copiant également la date. Le code est ci-dessous :

Sub absence_gpe()

    'copier/coller du prénom et nom
    ActiveCell.Select
    Selection.Copy
    Sheets("Groupes").Select
    Range("G3").Select
    Do While ActiveCell.Value > ""
    ActiveCell.Offset(1, 0).Select
    Loop
    ActiveSheet.Paste    

    'copier/coller de la date
    Sheets("Planning").Select
    Range("I2").Select
    Selection.Copy
    Sheets("Groupes").Select
    Range("H3").Select
    Do While ActiveCell.Value > ""
    ActiveCell.Offset(1, 0).Select
    Loop
    ActiveSheet.Paste
    Range("B2", "B500").Formula = Range("B2", "B500").Value

End Sub

Le problème est que j'ai des noms identiques dans plusieurs groupes, je voudrai que lorsque la cellule active est sélectionnée, que cela me copie également le nom du groupe, càd la première cellule de la même colonne que la cellule active.

Pour cela, j'ai tenté de faire quelque chose du genre :

'copie du nom du groupe
    Sheets("Groupes").Select
    Cells(ActiveCell.Select, 1).Select
    Selection.Copy

Tout en me doutant que cela ne fonctionnerait pas...

Quelqu'un aurait-il une idée en faisant simple pour ne pas trop alourdir mon code ?

Merci de votre aide,

Will

Bonjour Will Michoco,

Je n'ai pas cherché à rentrer dans le détail de ton code VBA,

mais si la cellule active est une des cellules du tableau,

Cells(1, ActiveCell.Column) devrait normalement

te donner le nom du groupe.

Et attention : dans Cells(ActiveCell.Select, 1).Select

m'est avis que tu as inversé n° de ligne et n° de colonne !

c'est d'abord le n° ligne, puis le n° colonne !

Cordialement

Merci pour ta réponse. En effet, j'ai fait une erreur dans ma saisie.

Je n'avais pas pensé au ActiveCell.Column ca ne fait pas tout à fait ce que je souhaite mais ça me débloque tout de même =).

Bonne journée,