Modifier Code?

[Excel69]

Bonjour A tous,

Voila j'ai un Code qui me permet de trouver automatiquement le Quinté du jour parmis toutes les Courses d'une Réunion il fonctionne super bien mais je voudrais savoir si il serais possible de modifier ce code pour qu'a la Place de ="Quinté" ont pouvais le remplacer par un emplacement de cellule et qui me permeterais de mettre ce que je veut dans cette cellule par exemple R2C1
Voici le code:

Sub SelecQuinté()
'   
Sheets("ReqCotes").Select
'
Columns("A:A").Select
    Selection.Find(What:="Quinté", After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
ActiveCell.Select
debut = ActiveCell.Offset(1, 0).Address
Fin = ActiveCell.Offset(23, 10).Address

Worksheets("Quinté").Range("a10:k39").Value = Worksheets("ReqCotes").Range("" & debut & ":" & Fin & "").Value

Sheets("ChoixCourse").Select
Range("b6").Select
End Sub

Merci Beaucoup

Excel69

 

[Paf]

Re : Modifier Code?

Bonjour,

une modification possible=
'

MaRecherche = Range("A1").Value
Columns("A:A").Select
    Selection.Find(What:=MaRecherche , After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate

le terme à chercher sera "pris" dans la cellule A1. Remplacer A1 par la cellule désirée

A+

 

[Excel69]

Re : Modifier Code?

Merci Beaucoup
Je fait la mofi dans le code et je dit quoi!

Excel69

 

[Excel69]

Re : Modifier Code?

Super ça fonctionne Impecable!!
mais en partant de ce principe
ont peut faire ça aussi?
MaRecherche = Worksheets("Feuil").Range("Cellule").value

Merci

 

[Paf]

Re : Modifier Code?

re,

a priori oui, ça ne coute rien d'essayer.

 

[Excel69]

Re : Modifier Code?

Bonsoir ,

Excusez moi pour la réponse tardive ça fonctionne aussi avec: MaRecherche = Worksheets("Feuil").Range("Cellule").value

Merci Beaucoup !

Bonne soirée a Tous

Excel69