Recherche numero de colonne

[ajit]

Bonjour,

Je souhaiterais rechercher une valeur dans un tableau et ensuite extraire le numero de la colonne ou se situe cette valeur.

si quelqu'un pouvait m'aider ca serait sympa et m'aiderait a avancer dans mon stage.

Merci a tous.

 

[Fred]

slt,
pour trouver le numero de la colonne active tu mets dans ta macro de recherche:
colonne = ActiveCell.Column
MsgBox("Colonne n° " & colonne)

 

[ajit]

Salut, Merci pour votre aide.

Voici le petit bout de programme :

Sub hide()
Dim Model1 As String
Model1 = InputBox("Enter The Model Number", "Model1", defaut)
Column = ActiveCell.Column
MsgBox ("Colonne n° " & Column)
Columns("Column").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Columns("B:B").Select
ActiveSheet.Paste
End Sub

//Je veux pouvoir rentrer un model, le model etant mon en tete de colonne, trouver la colonne de ce model, copier cette colonne et coller cette colonne dans la colonne B:B de le feuille 2//

 

[ajit]

Merci pour votre aide, mais ca ne repond pas exactement a mon probleme, voici mon probleme :

Je dispose d'une feuille de donnees, Ma premiere ligne est une entete de colonne.
Je souhaiterais faire une petite application VBA :

Qui au lancement de la macro me demande une entete de colonne, ensuite qui copie et colle cette colonne dans la page 2.

En esperant que vous puissiez m'aider a resoudre ce probleme qui me permettrait d'avancer dans mon projet de stage, je vous remercie par avance.

 

[STéphane]

bonjour

Sub solution_rapide()
Dim colonne As Range
Set colonne = Application.InputBox("votre colonne", Type:=8)

If Not colonne Is Nothing Then
colonne.Copy Sheets("Blad2").Range("A1")
End If

End Sub

bye
stephane

 

[ajit]

ca ne marche tjs pas, je veux savoir comment je peux recuper l'adresse de la colonne, je ne veux

 

[STéphane]

j'ai oublié de communiquer le mode d'emploi de ma macro

elle permet à l'utilisateur de sélectionner sa colonne et la recopie automatiquement sur la feuille "Blad2"


Sub solution_rapide()
Dim colonne As Range
Set colonne = Application.InputBox("votre colonne", Type:=8)

If Not colonne Is Nothing Then

'autre instruction que je viens d'inventer pour tester que la sélection
'correspond bien à une colonne entière
'c'est mieux qu'une comparaison avec le nombre 65536, je pense.
If colonne.Cells.Count <> colonne.EntireColumn.Cells.Count Then MsgBox "vous n'avez pas sélectionné une colonne entière": End

colonne.Copy Sheets("feuil2").Range("A1")

'retourne le numéro de la colonne
MsgBox colonne.Column
MsgBox ColumnLetter(colonne)

End If

End Sub

Function ColumnLetter(plage_a_tester As Range) As String
Dim C As Integer, L As Integer
With plage_a_tester
C = .Column
If C > 26 Then L = 2 Else L = 1
ColumnLetter = Left$(.Address(0, 0), L)
End With
End Function

bye
stephane

 

[ajit]

Merci a tous pour votre collaboration, mais ce ne marche tjs pas, voila ce que je voudrais faire :

- Je dispose d'une feuille de donnees.
- Je veux que l'application VBA demande a l'utilisateur la valeur a chercher, par un message box du type "rentrer la valeur".
- Recherche cette valeur dans ma feuille de donnees.
-Renvoie l'adresse de la colonne ou se situe cette valeur.
- Recopie la colonne entiere de la ou se situe cette valeur.
- Colle cette valeur dans une colonne de la feuille 2.

Ce qui me manque dans tout ca, c'est la fonction rechercher un valeur dans ma feuille et trouver son adresse.

Merci encore pour votre aide.

Ajeeth.

 

[Fred]

Slt je t'ai deja envoyé un mail et je te donne la soluce sur le forum avec un classeur exemple en esperant que ca te conviendras !

@+

Fred.

 

[ajit]

Salut,

Je te remerci pour la solution elle m'a bcp aide pour realiser mon programme,
je tenvoie ci joint le resultat finale avec le possibilite de masquer les
colonnes et ensuite de les rafficher a nouveau.
Mais j'ai toujour un petit souci, car lorsque je masque je demande combien de
model vouler vous comparer, et je mets cette valeur dans N.
Ensuite quand je demasque je redemande a nouveau combien de model avez vous
comparer et je mets cette valeur dans N.

il y t'il un moyen de memoriser la valeur de N lors de ma premiere question,
et d'utiliser cette valeur pour demasquer les colonne.

Merci de ton aide.

Ajit