variable

[le_neo]

Bonjour à tous,

Voila je suis légèrement coincé je débute sur VBA et j'aimerai savoir comment je fais pour intégrer une variable

Voila colonne A, B et C : A= une heure, B un numéro à 6 chiffres et C un texte

Private Sub CommandButton1_Click()
Dim numligne As Integer
numligne = i
Range("K2").Value = Range("A2").Value & " " & Range("B2").Value & " " & Range("C2").Value
numligne = ActiveCell.Row
End Sub
Voila pour la ligne 2 et encore dans la colonne K l'heure ne fonctionne pas
J’aimerais savoir comment je fais pour avoir dans une seule cellule colonne K et sur n'importe quelle ligne i l’information des 3 colonnes A, B et C

Ceci est la première étape ensuite j'aimerai créer un bouton Userforme avec les même informations pour ne pas ajouter la K en plus dans mon tableau

Merci

Cordialement

 

[Pierrot93]

Re : variable

Bonjour,

essaye peut être ainsi :

Dim i As Long
For i = 2 To Range("A65536").End(xlUp).Row
    Cells(i, 11) = Cells(i, 1).Text & " " & Cells(i, 2) & " " & Cells(i, 3)
Next i

bonne journée
@+

 

[le_neo]

Re : variable

Merci
cela fonctionne mais il faudrait qu'il affiche juste la ligne sur celle j'ai cliqué

 

[Pierrot93]

Re : variable

Re,

et tu cliques où ? dans une colonne spécifique ? et si rien dans les cellules ? manque de détails tout ca....

 

[le_neo]

Re : variable

quand je clique dans la cellules K et la ligne que j'aurai remplie exemple cellules K25 seule les renseignements de la ligne 25 apparait et je ne clique pas sur une ligne ou il n'y a pas d'information

merci par avance

 

[Pierrot93]

Re : variable

Re,

regarde ceci, se déclenche sur double click dans la colonne K, à placer dans le module de la feuille concernée :

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 11 Then Target = Cells(Target.Row, 1).Text & " " & _
    Cells(Target.Row, 2) & " " & Cells(Target.Row, 3): Cancel = True
End Sub

 

[le_neo]

Re : variable

Re,
Merci
cela me plais bien en attandant de pourvoir faire un userforme avec les mêmes fonctions

cordialement