Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion mythotem
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

mythotem

XLDnaute Junior
Bonjour tout le monde,

J'ai créeé avec ma petite connaissance Excel, la macro suivante :

=SI(ESTNA(RECHERCHEV(B13;'c:\LocalApp\EPI\[PPI R.xls]Matrice'!$A$1:$D$1000;4;0));0;RECHERCHEV(B13;'c:\LocalApp\EPI\[PPI R.xls]Matrice'!$A$1:$D$1000;4;0))

Elle va marcher au début et ensuite , message d'erreur : #NOM? dans toute la colonne.

Je m'aperçois que la formule a légèrement changé :

=SI(ESTNA(RECHERCHEV('B13';'c:\LocalApp\EPI\[PPI R.xls]Matrice'!$A$1:$D$1000;4;0));0;RECHERCHEV('B13';'c:\LocalApp\EPI\[PPI R.xls]Matrice'!$A$1:$D$1000;4;0)) :
B13 est devenu 'B13'

Que faut-il faire pour remédier à ce petit pb ?

Merci d'avance.

Mythotem.
 
Trier par date Trier par votes
Re : Macro

la voici :

Sub ka_PPI()
'
' ka_PPI Macro
' Macro enregistrée le 18/05/2008 par Whirlpool Europe srl
'

'
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(B13,'c:\localApp\EPI\[PPI R.xls]Matrice'!R1C1:R1000C4,4,0)),0,VLOOKUP(B13,'c:\localApp\EPI\[PPI R.xls]Matrice'!R1C1:R1000C4,4,0))"
Range("S13:S1000").Select
Application.WindowState = xlMinimized
Selection.FillDown
Application.WindowState = xlNormal
Application.WindowState = xlNormal
Application.WindowState = xlMaximized
ActiveWindow.ScrollRow = 932
ActiveWindow.ScrollRow = 850
ActiveWindow.ScrollRow = 748
ActiveWindow.ScrollRow = 604
ActiveWindow.ScrollRow = 502
ActiveWindow.ScrollRow = 338
ActiveWindow.ScrollRow = 153
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 10
Columns("O:O").Select
Range("S9:AB9").Select
Selection.UnMerge
Columns("O:O").Select
Selection.Copy
Columns("S:S").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("S9").Select
ActiveCell.FormulaR1C1 = "PPI (*)"
With ActiveCell.Characters(Start:=1, Length:=7).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("S13:S1000").Select
Selection.FillDown
ActiveWindow.LargeScroll Down:=-39
Columns("O:O").Select
Selection.Copy
Columns("S:S").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Merci encore.

mythotem
 
Vote positif 0 Vote négatif
Re : Macro

Re,


Code: 
     ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(B13,'c:\localApp\EPI\[PPI R.xls]Matrice'!R1C1:R1000C4,4,0)),0,VLOOKUP(B13,'c:\loca lApp\EPI\[PPI R.xls]Matrice'!R1C1:R1000C4,4,0))"

est impossible en Formula...

Soit tu es en FormulaLocal ou en Formula, mais pas les deux

FormulaLocal : B13
Formula : R1C1:R1000C4

A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2019 Erreur dans ma macro
Réponses
9
Affichages
884
Nadou69
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
659
AtTheOne
L
  • Question Question
Microsoft 365 Supprimer des colonnes et des images
Réponses
2
Affichages
570
LeLigérien
L
D
  • Question Question
envois automatique d'email avec EXCEL et une MACRO
Réponses
4
Affichages
2 K
AtTheOne
J
  • Résolu(e)
XL 2013 Macro et script vba : macro s'arrête dès la première condition trouvée
Réponses
11
Affichages
1 K
Janu44
J
A
  • Question Question
XL 2010 Correction macro supprimant les lignes avec '' 0 '' en début de tableau
Réponses
2
Affichages
573
Acritas
A
B
  • Résolu(e)
XL 2016 Modifier ou créer une macro de tri aléatoire par équipe de trois joueurs en lui ajoutant une colonne
Réponses
2
Affichages
621
berru76
B
G
  • Question Question
XL 2019 VBA / Macro Impression avec nombre de copies variables par feuille à imprimer
Réponses
5
Affichages
2 K
Gasner
G
B
  • Question Question
XL 2019 Macro - Envoyer des mails depuis un tableau de données
Réponses
3
Affichages
1 K
AtTheOne
A
  • Question Question
Microsoft 365 boucle macro pour importer des données
2
Réponses
16
Affichages
2 K
Arnaud Legay
A
C
  • Résolu(e)
Microsoft 365 Formule qui ralenti ma macro
2
Réponses
15
Affichages
3 K
mapomme
S
  • Question Question
XL 2019 modifications macro svp
Réponses
3
Affichages
1 K
Bernard_XLD
P
  • Question Question
XL 2019 Enregistrer et imprimer une feuille en pdf
Réponses
9
Affichages
2 K
PeewhY
P
S
  • Résolu(e)
XL 2010 non fonctionnement du code VBA sur un autre pc
Réponses
13
Affichages
2 K
Stedemart
S
N
  • Question Question
XL 2016 [RESOLU] Séquençage des rafraichissement de plusieurs tables (Power Query)
Réponses
10
Affichages
5 K
Nicocotte125
N
P
  • Résolu(e)
XL 2013 Problème de checkboxes et lecteurs partagés
Réponses
1
Affichages
1 K
Ptrs32
P
N
  • Question Question
XL 2016 probleme dans une macro lgn = cell.Row
Réponses
4
Affichages
1 K
neim
N
  • Question Question
XL 2010 Insertion image / Word à partir d’Excel à lire texte d’explication
Réponses
2
Affichages
2 K
jeanmi
C
  • Question Question
Microsoft 365 Création macro personnelle
Réponses
4
Affichages
1 K
Coralie01120
C
I
  • Résolu(e)
XL 2019 Rapprochement
Réponses
3
Affichages
1 K
iliess
I
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…