Discussion :

[mlrdeni]

Bonjour.
je tiens déjà à vous dire que je ne suis pas un pro de VBA. Je développe mes programmes sur Excel pour mon boulot grâce aux enregistrements du menu macro puis je me risque à les modifier quelque peu par VBA.
Voilà mon problème:
J'effectue une recherche avec "match" dans une colonne de base de données pour obtenir le N° de ligne (jusque là tout va bien) et je voudrais l'affecter à une variable pour désigner une cellule sur cette même ligne pour pouvoir y copier la valeur d'une autre cellule. Et là tout va mal.
Si quelqu'un pouvait m'aider, ce serait génial.
Merci d'avance

[Gorfael]

Salut
Tu pourrais expliquer ton problème ? Match est une formule Excel anglais, pas du VBA (EQUIV, je crois).
Au lieu de dire ce que tu fais et que tu ne maîtrises pas, si tu expliquais ce que tu veux faire ?
Plus tu vas être précis, plus compréhensible sera le code qu'on te fournira, puisque tu pourras retrouver tes données.
A+

[alsimbad]

A priori, pour ce que tu en dit, tu cherche une cellule et tu arrive a en déduire la ligne. donc tu aurais deux solutions. la premiere, tu utilise ce n° de ligne pour acceder a ta cellule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
variable = macelluletrouvé.row
cells(variable,x).value = mavaleur (x est le n° de colonne de cette cellule)

ou alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

macelulletrouvé.offset(x,0) = mavaleur (x est le decalage horizontale pâr rapport a la cellule que tu as trouvé avec match)

cependant, comme dit gorfael avec justesse, plus ta question sera précise, plus la réponse pourra l'etre. et comme tu peux constater avec les deux solutions que je te propose, il y a un cas ou le fait d'avoir trouvé la ligne ne te sert a rien. si tu nage, ne part part de la façon que tu veux faire, mais du résultat que tu veux obtenir, en fonction de ce que tu as. ou du moins, expose au moins ça, et expose le point ou tu en es, ça aide bien.

[mlrdeni]

Bon, désolé. Je vais m'appliquer et essayer d'être plus clair.
Je travaille sur une base de donnée d'un millier de lignes environ et une trentaine de colonnes.
Mon classeur possède trois feuilles.
Sur la première, ma base de données. La deuxième sert de feuille de travail à mes macros et la troisième de résultat. J'efface le contenu de ces deux dernières à chaque lancement de mes macros.
Je travaille avec une dizaine de macros.
Sur la feuille résultat de l'une d'elles, je voudrais copier une cellule pour aller mettre à jour une cellule de ma base de données.
Cette cellule fait partie d'une ligne sur la base de données dont le contenu de certaines cellules est figé.
Je fais donc une recherche du numéro de ligne dans la première colonne de ma base de données (champs désignation).

Voilà ma procédure par excell:
macro - nouvelle macro
je sélectionne une cellule dans ma page résultat et utilise la fonction 'equiv' pour trouver le n° de ligne dans la colonne 'désignation' de la base de données.
S'inscrit donc dans cette cellule le numéro de ligne qui est bien en format nombre.
j'arrête l'enregistrement de la macro.

macro-macro-modifier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim a As Integer
    Range("A1").Select
        ActiveCell.FormulaR1C1 = "=MATCH(""CAISSE CELLULE N°1"",'base de données'!C,0)

C'est pourquoi je parlais de l'instruction "match" car maintenant on est bien en VBA.
je veux maintenant affecter le résultat de cette fonction à la variable a.
Puis utiliser l'instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(a,10).select

pour y mettre à jour le contenu.

C'est l'affectation du résultat de cette fonction à la variable a que je n'arrive pas à faire.

J'espère que j'ai été plus clair. En tous cas merci de vous être penchés sur mon problème.
Je vais maintenant essayer de me pencher sur les propositions de alsimbad.

[fred65200]

bonjour, si j'ai bien compris il faut écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
a = [A1] 'ou a = ['Feuil1'!A1] remplace 'Feuil1' par le bon nom d'onglet
Cells(a,10).select

cordialement
fred65200

[Maxence HUBICHE]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
a=Activecell.value

[alsimbad]

bon, je te propose un bout de code qui devrais te simplifier la vie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim Scherche As String
Dim a As String
Sub trouve()
Scherche = InputBox("désignation")
'''ou Scherche = selection.value si tu prefere continuer avec ta façon
With Worksheets(1).Range("a1:a1000")
Set a = .Find(Scherche, LookIn:=xlValues)
MsgBox a.Offset(0, 10).Value
a.Offset(0, 10).Select
''en réalité ces deux derniere lignes ne servent a rien qu'a t'indiquer que tu es au bon endroit. c'est la ligne du dessus qui affecte une valeur la a
End With
End Sub

bon week end

[mlrdeni]

Merci pour tout.
Les solutions de Maxence et Fred fonctionnent.
Merci aussi Alsimbad, je ne suis pas aller plus loin mais j'ai appris une astuce de plus.
C'est super.
Merci encore de votre dévouement.