Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Remplacer des formules par une macro ??...

Remplacer des formules par une macro ??...

8 réponses
Avatar
RV
Re-bonsoir,
Comment remplacer les formules d'une colonne

=RECHERCHEV(D8;Fixes;2;FAUX)
.
etc
.
=RECHERCHEV(D106;Fixes;2;FAUX)

par une macro ?
Merci.
Cordialement.
Hervé
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
anonymousA
Bonjour

p.e pour la colonne A

range(cells(1,1),cells(65536,1).Replace What:="8", Replacement:="106",
LookAt:=xlPart

A+


Re-bonsoir,
Comment remplacer les formules d'une colonne

=RECHERCHEV(D8;Fixes;2;FAUX)
.
etc
.
=RECHERCHEV(D106;Fixes;2;FAUX)

par une macro ?
Merci.
Cordialement.
Hervé




Avatar
RV
Bonsoir AnonymousA,

Je ne comprends pas comment ton code fonctionne, je l'ai placé tel quel sur
la feuille (en définissant une plage de cellules de référence) pour test
mais sans succès:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range(Cells(1, 1), Cells(65536, 1)).Replace What:="8", Replacement:="106",
LookAt:=xlPart
End Sub


La plage de cellule (qui est sur autre feuille sur mon fichier), est-ce
Range(Cells(1, 1), Cells(65536, 1)) ?
Et LookAt:=xlPart correspondrait-il à la colonne des valeurs à afficher ?
Merci de ton aide.
Hervé



"anonymousA" a écrit dans le message de news:
43bc14ce$0$29228$
Bonjour

p.e pour la colonne A

range(cells(1,1),cells(65536,1).Replace What:="8", Replacement:="106",
LookAt:=xlPart

A+


Re-bonsoir,
Comment remplacer les formules d'une colonne

=RECHERCHEV(D8;Fixes;2;FAUX)
.
etc
.
=RECHERCHEV(D106;Fixes;2;FAUX)

par une macro ?
Merci.
Cordialement.
Hervé




Avatar
RV
Re-bonsoir AnonymousA,
J'ai fini par comprendre, mais l'aide d'Excel n'est pas vraiment clair pour
moi !!!...
Merci ton aide et bonne soirée.
Cordialement
Hervé



"anonymousA" a écrit dans le message de news:
43bc14ce$0$29228$
Bonjour

p.e pour la colonne A

range(cells(1,1),cells(65536,1).Replace What:="8", Replacement:="106",
LookAt:=xlPart

A+


Re-bonsoir,
Comment remplacer les formules d'une colonne

=RECHERCHEV(D8;Fixes;2;FAUX)
.
etc
.
=RECHERCHEV(D106;Fixes;2;FAUX)

par une macro ?
Merci.
Cordialement.
Hervé




Avatar
RV
Encore moi,
Je ne cherche pas à changer ce qu'il y a dans la cellule même, mais plutôt à
afficher un résultat suivant le critère de la cellule dans la cellule
adjacente, ce que fait RechercheV, et je ne vois pas comment adapter ton
code à mes besoins.
Merci pour l'aide que tu pourras m'apporter.
Cordialement.
Hervé
"anonymousA" a écrit dans le message de news:
43bc14ce$0$29228$
Bonjour

p.e pour la colonne A

range(cells(1,1),cells(65536,1).Replace What:="8", Replacement:="106",
LookAt:=xlPart

A+


Re-bonsoir,
Comment remplacer les formules d'une colonne

=RECHERCHEV(D8;Fixes;2;FAUX)
.
etc
.
=RECHERCHEV(D106;Fixes;2;FAUX)

par une macro ?
Merci.
Cordialement.
Hervé




Avatar
anonymousA
Je ne comprends pas ce que tu souhaites faire. Plus d'explications
serait judicieux.

A+

Encore moi,
Je ne cherche pas à changer ce qu'il y a dans la cellule même, mais plutôt à
afficher un résultat suivant le critère de la cellule dans la cellule
adjacente, ce que fait RechercheV, et je ne vois pas comment adapter ton
code à mes besoins.
Merci pour l'aide que tu pourras m'apporter.
Cordialement.
Hervé
"anonymousA" a écrit dans le message de news:
43bc14ce$0$29228$

Bonjour

p.e pour la colonne A

range(cells(1,1),cells(65536,1).Replace What:="8", Replacement:="106",
LookAt:=xlPart

A+



Re-bonsoir,
Comment remplacer les formules d'une colonne

=RECHERCHEV(D8;Fixes;2;FAUX)
.
etc
.
=RECHERCHEV(D106;Fixes;2;FAUX)

par une macro ?
Merci.
Cordialement.
Hervé









Avatar
JLuc
*Bonjour RV*,
Ce que tu veux, c'est mettre, dans une variable, le resultat d'une
recherche ?

Sub test()
Dim var
var = Application.WorksheetFunction.VLookup(Range("D1"), _
Range("matrice"), 2)
'MsgBox var
[d2] = var

End Sub

devrait le faire, non ?
Encore moi,
Je ne cherche pas à changer ce qu'il y a dans la cellule même, mais plutôt à
afficher un résultat suivant le critère de la cellule dans la cellule
adjacente, ce que fait RechercheV, et je ne vois pas comment adapter ton code
à mes besoins.
Merci pour l'aide que tu pourras m'apporter.
Cordialement.
Hervé
"anonymousA" a écrit dans le message de news:
43bc14ce$0$29228$
Bonjour

p.e pour la colonne A

range(cells(1,1),cells(65536,1).Replace What:="8", Replacement:="106",
LookAt:=xlPart

A+


Re-bonsoir,
Comment remplacer les formules d'une colonne

=RECHERCHEV(D8;Fixes;2;FAUX)
.
etc
.
=RECHERCHEV(D106;Fixes;2;FAUX)

par une macro ?
Merci.
Cordialement.
Hervé





--
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



Avatar
RV
Re-bonsoir AnonymousA et JLuc
En fait je souhaite remplacer la formule =RECHERCHEV(D8;Fixes;2;FAUX) qui se
répète de la cellule D8 à la cellule D106 par une macro.
Le code que tu m'as donné remplace la valeur de la cellule par autre valeur.
Jai une plage de cellule où A.R.A =1
Ce que je souhaite c'est en fonction de la valeur afficher dans le cellule
D8(par exemple A.R.A), il s'affiche en cellule D9 la valeur correspondante
(1).

Je n'ai pas testé le code de JLuc ci dessous:

Sub test()
Dim var
var = Application.WorksheetFunction.VLookup(Range("D1"), _
Range("matrice"), 2)
'MsgBox var
[d2] = var

End Sub

Je pense que D1 = D8 pour moi et que "matrice" = "Fixes" ?
Il ne me resterait alors qu'à routiner tout ce petit monde.
Je vais tester mais je souhaiterais avoir une confirmation...
Merci à vous deux pour votre assistance.
Cordialement
Hervé



"RV" a écrit dans le message de news:
uGd%
Encore moi,
Je ne cherche pas à changer ce qu'il y a dans la cellule même, mais plutôt
à afficher un résultat suivant le critère de la cellule dans la cellule
adjacente, ce que fait RechercheV, et je ne vois pas comment adapter ton
code à mes besoins.
Merci pour l'aide que tu pourras m'apporter.
Cordialement.
Hervé
"anonymousA" a écrit dans le message de news:
43bc14ce$0$29228$
Bonjour

p.e pour la colonne A

range(cells(1,1),cells(65536,1).Replace What:="8", Replacement:="106",
LookAt:=xlPart

A+


Re-bonsoir,
Comment remplacer les formules d'une colonne

=RECHERCHEV(D8;Fixes;2;FAUX)
.
etc
.
=RECHERCHEV(D106;Fixes;2;FAUX)

par une macro ?
Merci.
Cordialement.
Hervé








Avatar
RV
Re,re-bonsoir,
Ne cherchez plus !!...
J'ai adapté le code de JLuc à mes besoins...
La fonction VLookup semble mieux adaptée que la fonction Replace pour ce que
je souhaite obtenir.
Je pense que je n'ai pas été assez clair dans mes explications du départ
quant au résultat que je souhaitais obtenir et j'en suis désolé.
Merci AnonymousA, merci JLuc pour l'aide que vous m'avez apporté et bonne
soirée.
Cordialement
Hervé



"RV" a écrit dans le message de news:
uGd%
Encore moi,
Je ne cherche pas à changer ce qu'il y a dans la cellule même, mais plutôt
à afficher un résultat suivant le critère de la cellule dans la cellule
adjacente, ce que fait RechercheV, et je ne vois pas comment adapter ton
code à mes besoins.
Merci pour l'aide que tu pourras m'apporter.
Cordialement.
Hervé
"anonymousA" a écrit dans le message de news:
43bc14ce$0$29228$
Bonjour

p.e pour la colonne A

range(cells(1,1),cells(65536,1).Replace What:="8", Replacement:="106",
LookAt:=xlPart

A+


Re-bonsoir,
Comment remplacer les formules d'une colonne

=RECHERCHEV(D8;Fixes;2;FAUX)
.
etc
.
=RECHERCHEV(D106;Fixes;2;FAUX)

par une macro ?
Merci.
Cordialement.
Hervé