Discussion :

[DiesIrae]

Bonjour,

A partir d'une base de données, une macro liste sur une feuille les différentes commandes que possède un client. Cette liste peut être plus ou moins longue selon les clients et peut très bien se finir en ligne 26 (début de la liste, une seule commande donc une seule ligne) ou en ligne 40.

A la suite de la dernière ligne, je souhaite ajouter du texte. J'ai donc tapé en H1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NBVAL(A:A)+26

dans une cellule pour connaitre le numéro de la ligne à partir de laquelle sera inséré le texte.

Connaissez-vous une méthode en VBA pour insérer un certain texte en " A[valeur H1] " ?

D'avance, merci...

[jfontaine]

Bonjour,

Essai ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A" & range("H1").value).value="test"

[LeForestier]

Bonjour,
La formule en H1 n'est pas nécessaire, tu peu directement savoir en VBA quel est la première ligne vide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim DerLig as long
    Derlig = Range("A65536").End(xlUp).row + 1
    range("A" & DerLig).Select

A+

[Fvandermeulen]

Salut,
J'espère avoir bien compris ton cas...
Voici un code qui, via la variable MaVal récupère la valeur dans la cellule H1 de la feuille1. Ensuite avec le principe de Cells on indique la cellule qui doit contenir le texte voulu.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
 
Dim MaVal As Long
 
MaVal = Sheets("Feuil1").Range("H1")
 
Cells(MaVal, 1) = "TonTexte"
 
End Sub

[DiesIrae]

Je vais utiliser le code de jfontaine, une ligne de code me suffit largement

Merci à tous pour votre rapidité