Discussion :

[ritournelle]

Bonjour,

Novice en VBA, je souhaiterais compléter une macro existante de la formule Excel virtuelle suivante :

Code :

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

IF(A4="";"";IF((VLOOKUP(A4;Codes!A2: D36;3;FALSE))="";FaxTo(VLOOKUP(A4;Codes!A2: D36;4;FALSE));MailTo(VLOOKUP(A4;Codes!A2: D36;3;FALSE))))

Un expert en VBA saurait-il m'aider ?
D'avance merci.

[tirex28]

Bonsoir et bienvenue sur dvp,

Code :

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

1
2
3
4
5
6
7
8
9
If Range("A4") = "" Then
   '
Else
   If WorksheetFunction.VLookup(Range("A4"), Sheets("Codes").Range("A2:D36"), 3, False) = "" Then
      FaxTo VLookup(Range("A4"), Sheets("Codes").Range("A2:D36"), 4, False)
   Else
      MailTo VLookup(Range("A4"), Sheets("Codes").Range("A2:D36"), 3, False)
   End If
End If

Ce n'est qu'une interprétation possible de ce que tu as écrit, à tester donc. Sinon essaye de reformuler ta question plus précisément.

Cordialement,

Tirex28/

[ritournelle]

Merci pour ta réponse Tirex28 !

J'ai fait l'essai mais ça bug sur Vlookup (après FaxTo)... "Erreur de compilation, Sub ou Function non définie"

Pour être peut-être plus explicite je souhaiterais qu'à partir d'une page donnée et du contenu d'une cellule de celle-ci, la macro fasse une recherche en V dans un tableau, si la colonne Mail est vide, elle va dans la colonne Fax et envoie un fax au numéro qui s'y trouve et sinon, si la colonne Mail contient une adresse, envoyer un mail à celle-ci.

J'espère avoir été plus claire.
En tout cas merci beaucoup pour ton aide.

[Godzestla]

Bonjour,

si ta formule existe dans une cellule, tu démarres l'enregistreur de macro, tu prends ta cellule en modif (F2) sans rien changer, tu arrêtes l'enregistreur de macro et tu regarde dans medule (Module1 ?) le code génér pour remplacer ta formule.

cela donne généralement une bonne base de départ.

[ritournelle]

Bonjour Godzestla et merci pour ta réponse.

La formule n'existe pas dans une cellule, à cause de MailTo et FaxTo qui ne sont pas compatibles (je crois) avec une formule Excel. C'est pour cela que j'ai parlé d'une formule virtuelle. Elle était juste là pour expliquer ce que je souhaitais obtenir.

Et je ne sais pas trop comment générer du code pour les si, les recherches, MailTo et FaxTo... et tout compiler pour que ça tienne la route !

[tirex28]

Bonjour,

Les procédures MailTo et FaxTo sont elles déja ecrites?

Cordialement,

Tirex28/