Recherche et affichage colonne

[jorisphi]

Bonjour

J'ai un fichier de données qui reprend beaucoup de colonnes et j'aimerai qu'il me positionne sur la colonne rechechée en fonction d'un critère donné
Est possible avec une formule excel ou en VBA ?.....

Je joins un exemple en annexe

Merci d'avance pour votre aide
Cordialement

 

[jorisphi]

Re : Recherche et affichage colonne

Très Cher Temjet
Tout d'abord, excusez-moi de ma réponse tardive, mais j'ai été absent 2/3jours

Ensuite .......Encore GRAND MERCI pour votre "Coaching"
J'ai essayé les 2 façons que vous proposiez et elles fonctionnent
La Vôtre (Le code dans la feuille) est plus explicite et je la comprends beaucoup mieux (Même en étant débutant)

Merci aussi pour
-votre conseil ( SI TU AJOUTE DES LIGNES TU CHANGE LE 31 (qui est la dernière ligne pour
ton vert)
-ainsi que pour mon "apprentissage"

A bientôt
Très cordialement
JORISPHI

 

[jorisphi]

Re : Recherche et affichage colonne

Bonjour Catrice
Merci pour tes conseils
J'ai appliqué ta remarque, mais j'ai un problème de compilation.....
Peux-tu regarder et corriger ma macro ?
Excuse-moi, je suis un débutant et pour moi c'est encore compliqué de trouver "la" solution, qui, pour toi, te paraitra d'un débilité monstre.
Mais c'est grâce à des "pros" comme toi que je progresserai

Je te joins mon ficher en annexe (Ma macro s'appelle "PresAbs")
Cordialement
JorisPhi
----------------------
If vbYes = MsgBox("Cette Commande va écraser les montants déjà encodés" & vbCr & vbCr & vbCr & _
" Voulez-vous continuer ?", vbExclamation + vbYesNo + vbDefaultButton2

 

[jorisphi]

Re : Recherche et affichage colonne

Bonjour,

A priori, c'est moi qui est commis ce code :

Var1 = Application.Match(ActiveSheet.Range("B1").Value2, ActiveSheet.Range("[COLOR="Blue"][B]A[/B][/COLOR]2:IV2"), 0)

Il n'y a pas besoin de rajouter +1, il faut juste ne pas modifier le code d'origine et laisser A2 au lieu de B2.
Ce code évite de faire une boucle.

Sinon, tu peux aussi faire ce qui suit pour éviter le SendKey :

If vbYes = MsgBox("Cette Commande va écraser les montants déjà encodés" & vbCr & vbCr & vbCr & _
"           Voulez-vous continuer ?", vbExclamation + vbYesNo + [COLOR="blue"][B]vbDefaultButton2[/B][/COLOR], "Copie") Then

Bonjour Catrice
Grand merci pour ta réponse
et aussi pour ton coaching
A Bientôt
Jorisphi

 

[jorisphi]

Re : Recherche et affichage colonne

Bonjour Temjet

Je me permets de revenir vers vous, car vous m’aviez aidé en son temps pour afficher une recherche de Date
De plus vous aviez eu beaucoup de patience avec moi qui suis débutant en VBA

Pourriez-vous me corriger ma macro ?
Je joins mon fichier en annexe

D’avance, un tout grand merci

Jorisphi

Sub Rech_Date()

Lig = 31
Range("D2").CurrentRegion.Resize(Lig).Interior.ColorIndex = xlNone
Var1 = Application.Match(ActiveSheet.Range("B1").Value2, ActiveSheet.Range("B2:IV2"), 0)
If Not IsError(Var1) Then
    Cells(2, Var1).Select
    Range(Cells(2, Var1), Cells(Lig, Var1)).Interior.ColorIndex = 4
    Else
    MsgBox "Date inexistante!"
End If

End Sub

Aussi il manquait ce code dans le module de la feuille:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$1" Then Rech_Date
End Sub

Cijoint.fr - Service gratuit de dépôt de fichiers

A++

Temjeh

Je ne peut te le renvoyé il a + de 50k[/QUOTE]