Discussion :

[croky23]

Bonjour le forum
je suis débutant et je rame un peu
voici mon soucis

J'ai une info à rentrer par userform dans une autre page

ex le nombre d'un produit fabriqué selon le code du produit

sur cette page j'ai plusieurs codes sur une même ligne

j'ai donc mis ce code

Code :

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

[C5:R5].Find(C_code, LookIn:=xlValues).Select

et cela me sélectionne bien le bon code mais je voudrai que le nombre de produits fabriqués se mette toujours dans la dernière cellule vide de cette colonne
merci de votre aide
bonne journée

[allergique]

Bonjour,

Tu peux essayer ce code, qu'on obtient facilement avec l'enregistreur de macros

Code :

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

1
2
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select

a+

[casefayere]

Bonjour le Forum, croky23

tu ne donnes pas assez de précisions.
ta selection [C5:R5] est'elle une ligne d'entête ?
peut-être peux-tu envoyer un exemple en fichier joint

Bone journée

[laetitia]

bonjour croky23 allergique l'ami casefayere le forum pas simple avec si peu d infos je suppose que C_code est une textbox les donnees dans textbox2 ta recherche sur la 2 feuille ton user sur une autre feuille & tu envoi la new valeur avec un commandbutton a adapter
Option Explicit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
Dim c As Variant
Application.ScreenUpdating = False
Set c = Sheets("Feuil2").[C5:R5].Find(C_code, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
MsgBox "pas trouve"
Else
Sheets("Feuil2").Activate: c.Select
Columns(ActiveCell.Column).Find("*", , , , , xlPrevious).Offset(1, 0).Value = TextBox2.Value
End If
End Sub

[croky23]

merci beaucoup