Recherche dans une colonne par l'inermédiaire d'une boite de dialogue
1 réponse
Claude
Bonjour,
Je recherche au travers d'une boite de dialogue le moyen de trouver un code
dans une colonne et de renseigner dans une colonne a coté, mais sur la même
ligne, une valeur (saisie d'inventaire)
Y à t'il quelqu'un qui peut m'aider
D'avance merci
Claude
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ChrisV
Bonjour Claude,
Avec la plage de données (codes) nommée ici Zn
Sub invenTaire() Dim reP As String Dim arT As Integer reP = InputBox("Saisissez le code recherché", "MPFE...") If reP = "" Then Exit Sub arT = Application.InputBox("Saisissez la valeur d'inventaire", _ "MPFE...", , , , , , 1) On Error Resume Next If arT <> "" Then _ Cells(Range("Zn").Find(reP, LookIn:=xlValues).Row, _ 1 + Range("Zn").Column) = arT End Sub
ChrisV
"Claude" a écrit dans le message de news:
Bonjour,
Je recherche au travers d'une boite de dialogue le moyen de trouver un code
dans une colonne et de renseigner dans une colonne a coté, mais sur la même
ligne, une valeur (saisie d'inventaire)
Y à t'il quelqu'un qui peut m'aider D'avance merci Claude
Bonjour Claude,
Avec la plage de données (codes) nommée ici Zn
Sub invenTaire()
Dim reP As String
Dim arT As Integer
reP = InputBox("Saisissez le code recherché", "MPFE...")
If reP = "" Then Exit Sub
arT = Application.InputBox("Saisissez la valeur d'inventaire", _
"MPFE...", , , , , , 1)
On Error Resume Next
If arT <> "" Then _
Cells(Range("Zn").Find(reP, LookIn:=xlValues).Row, _
1 + Range("Zn").Column) = arT
End Sub
ChrisV
"Claude" <c.capelle@duwic.com> a écrit dans le message de news:
uYonacq3DHA.632@TK2MSFTNGP12.phx.gbl...
Bonjour,
Je recherche au travers d'une boite de dialogue le moyen de trouver un
code
dans une colonne et de renseigner dans une colonne a coté, mais sur la
même
ligne, une valeur (saisie d'inventaire)
Y à t'il quelqu'un qui peut m'aider
D'avance merci
Claude
Sub invenTaire() Dim reP As String Dim arT As Integer reP = InputBox("Saisissez le code recherché", "MPFE...") If reP = "" Then Exit Sub arT = Application.InputBox("Saisissez la valeur d'inventaire", _ "MPFE...", , , , , , 1) On Error Resume Next If arT <> "" Then _ Cells(Range("Zn").Find(reP, LookIn:=xlValues).Row, _ 1 + Range("Zn").Column) = arT End Sub
ChrisV
"Claude" a écrit dans le message de news:
Bonjour,
Je recherche au travers d'une boite de dialogue le moyen de trouver un code
dans une colonne et de renseigner dans une colonne a coté, mais sur la même
ligne, une valeur (saisie d'inventaire)
Y à t'il quelqu'un qui peut m'aider D'avance merci Claude
