Dim N As Variant N = Application.InputBox("Écrivez un nombre", "Saisir", , , , , , 2) If TypeName(N) = "Boolean" Then Exit Sub MsgBox N
End Sub
Salutations!
"GIL" a écrit dans le message de news: MlbBf.142$ Bonjour
Je cherche de l'aide pour traduire en VBA
N=Inputbox(saisir un nombre)
Dans la deuxième ligne de la feuille chercher la première cellule contenant une valeur égale à N puis sélectionner la colonne contenant cette cellule
JLuc
*Bonjour GIL*, N = InputBox("Saisir un nombre : ") 'ne pas oublier les doubles cotes For Each cel In Range(Cells(2, 1), Cells(2, Range("IV2").End(xlToLeft).Column)) If cel = N Then cel.EntireColumn.Select Exit For End If Next
Devrait convenir, dis nous
Bonjour
Je cherche de l'aide pour traduire en VBA
N=Inputbox(saisir un nombre)
Dans la deuxième ligne de la feuille chercher la première cellule contenant une valeur égale à N puis sélectionner la colonne contenant cette cellule
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/ C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
*Bonjour GIL*,
N = InputBox("Saisir un nombre : ") 'ne pas oublier les doubles cotes
For Each cel In Range(Cells(2, 1), Cells(2,
Range("IV2").End(xlToLeft).Column))
If cel = N Then
cel.EntireColumn.Select
Exit For
End If
Next
Devrait convenir, dis nous
Bonjour
Je cherche de l'aide pour traduire en VBA
N=Inputbox(saisir un nombre)
Dans la deuxième ligne de la feuille
chercher la première cellule contenant une valeur égale à N
puis sélectionner la colonne contenant cette cellule
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
*Bonjour GIL*, N = InputBox("Saisir un nombre : ") 'ne pas oublier les doubles cotes For Each cel In Range(Cells(2, 1), Cells(2, Range("IV2").End(xlToLeft).Column)) If cel = N Then cel.EntireColumn.Select Exit For End If Next
Devrait convenir, dis nous
Bonjour
Je cherche de l'aide pour traduire en VBA
N=Inputbox(saisir un nombre)
Dans la deuxième ligne de la feuille chercher la première cellule contenant une valeur égale à N puis sélectionner la colonne contenant cette cellule
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/ C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
michdenis
Pour terminer la macro selon la demande,
'--------------------------------- Sub test()
Dim N As Variant, Rg As Range N = Application.InputBox("Écrivez un nombre", "Saisir", , , , , , 2) If TypeName(N) = "Boolean" Then Exit Sub
With Worksheets("Feuil1") With .Range("2:2") Set Rg = .Find(CDbl(N), , xlValues, xlWhole, xlByRows) End With End With If Not Rg Is Nothing Then Rg.EntireColumn.Select End If Set Rg = Nothing
End Sub '---------------------------------
Salutations!
"michdenis" a écrit dans le message de news: Bonjour Gil,
Sub test()
Dim N As Variant N = Application.InputBox("Écrivez un nombre", "Saisir", , , , , , 2) If TypeName(N) = "Boolean" Then Exit Sub MsgBox N
End Sub
Salutations!
"GIL" a écrit dans le message de news: MlbBf.142$ Bonjour
Je cherche de l'aide pour traduire en VBA
N=Inputbox(saisir un nombre)
Dans la deuxième ligne de la feuille chercher la première cellule contenant une valeur égale à N puis sélectionner la colonne contenant cette cellule
Pour terminer la macro selon la demande,
'---------------------------------
Sub test()
Dim N As Variant, Rg As Range
N = Application.InputBox("Écrivez un nombre", "Saisir", , , , , , 2)
If TypeName(N) = "Boolean" Then Exit Sub
With Worksheets("Feuil1")
With .Range("2:2")
Set Rg = .Find(CDbl(N), , xlValues, xlWhole, xlByRows)
End With
End With
If Not Rg Is Nothing Then
Rg.EntireColumn.Select
End If
Set Rg = Nothing
End Sub
'---------------------------------
Salutations!
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news: uaIvqBGIGHA.2696@TK2MSFTNGP14.phx.gbl...
Bonjour Gil,
Sub test()
Dim N As Variant
N = Application.InputBox("Écrivez un nombre", "Saisir", , , , , , 2)
If TypeName(N) = "Boolean" Then Exit Sub
MsgBox N
End Sub
Salutations!
"GIL" <gilles.effacernospam.meray@wanadoo.fr> a écrit dans le message de news: MlbBf.142$Kt1.49@nntpserver.swip.net...
Bonjour
Je cherche de l'aide pour traduire en VBA
N=Inputbox(saisir un nombre)
Dans la deuxième ligne de la feuille
chercher la première cellule contenant une valeur égale à N
puis sélectionner la colonne contenant cette cellule
Dim N As Variant, Rg As Range N = Application.InputBox("Écrivez un nombre", "Saisir", , , , , , 2) If TypeName(N) = "Boolean" Then Exit Sub
With Worksheets("Feuil1") With .Range("2:2") Set Rg = .Find(CDbl(N), , xlValues, xlWhole, xlByRows) End With End With If Not Rg Is Nothing Then Rg.EntireColumn.Select End If Set Rg = Nothing
End Sub '---------------------------------
Salutations!
"michdenis" a écrit dans le message de news: Bonjour Gil,
Sub test()
Dim N As Variant N = Application.InputBox("Écrivez un nombre", "Saisir", , , , , , 2) If TypeName(N) = "Boolean" Then Exit Sub MsgBox N
End Sub
Salutations!
"GIL" a écrit dans le message de news: MlbBf.142$ Bonjour
Je cherche de l'aide pour traduire en VBA
N=Inputbox(saisir un nombre)
Dans la deuxième ligne de la feuille chercher la première cellule contenant une valeur égale à N puis sélectionner la colonne contenant cette cellule
GIL
Merci de votre aide J'ai adapté les 2 macros proposées (par Michdenis et JLuc) et ça résoud très bien mon problème
Bonjour
Je cherche de l'aide pour traduire en VBA
N=Inputbox(saisir un nombre)
Dans la deuxième ligne de la feuille chercher la première cellule contenant une valeur égale à N puis sélectionner la colonne contenant cette cellule
Merci de votre aide
J'ai adapté les 2 macros proposées (par Michdenis et JLuc)
et ça résoud très bien mon problème
Bonjour
Je cherche de l'aide pour traduire en VBA
N=Inputbox(saisir un nombre)
Dans la deuxième ligne de la feuille
chercher la première cellule contenant une valeur égale à N
puis sélectionner la colonne contenant cette cellule
