une macro pour ajouter du texte en fin de colonne

[flo2002]

Sub Action4()
Dim VotreNom As String
Range('A50').Select
Selection.End(xlUp).Offset(1, 0).Select
VotreNom = InputBox(' Quel est votre nom?')
ActiveCell.Value = VotreNom
End Sub

J'ai trouvé cette macro qui pourrai être une bonne base pour moi. Je voudrai pouvoir ajouter du texte à la suite d'une colonne.
Cette macro fonctionne dans son fichier d'origine mais je me demande comment faire pour choisir quel colonne on doit remplir?

A50 veut dire quoi?

merci d'avance

 

[CAP]

Bonjour flo2002,

Voici quelques commentaires sur ce que fait chaque ligne :

Sub Action4()
/* La procédure lancée s'appelle Action4 */

Dim VotreNom As String
/* Déclaration d'une variable qui s'appelle 'VotreNom' et qui est du type chaîne de caractères */

Range('A50').Select
/*Sélection d'une cellule déterminée par des coordonées : colonne A, ligne 50.

Selection.End(xlUp).Offset(1, 0).Select
/*Il part de la cellule sélectionnée ci-dessus, à savoir la cellule A50. Il remonte une à une les cellules (il passe en A49, A48 ...) jusqu'à ce que la cellule qui suit est non vide. Si la cellule A45 est non vide, la sélection s'arrête sur la A46.

VotreNom = InputBox(' Quel est votre nom?')
/*Une boîte apparaît et demande d'entre le nom. Ce nom que l'on rentre est stocké dans la variable VotreNom.

ActiveCell.Value = VotreNom
/*On écrit le nom entré dans la cellule sélectionnée (qui est par défaut celle active).

End Sub

Tu veux que le nom soit écrit dans toutes les cellules d'une colonne ? ou dans une cellule en particulier ? (auquel cas, il suffit de mettre au lieu de A50 les coordonées de la cellule que l'on veut).

En espérant avoir un peu aidé,

 

[flo2002]

merci avec ca je dois m'en sortir.