[Résolu] Transposer formule simple en VBA

[Lone-wolf]

Bonjour à tous,

suite au test avec Validation de Données, j'aimerais transcrire cette formule en VBA:
D5<>"";RECHERCHE(Poids!A$2:A$10000);"". Comme la Msg affiche 4 boutons, je préfère en avoir qu'un seul.

Merci pour votre aide.

 

[dra72]

Re : Transposer formule simple en VBA

Bonjour,

Je te propose ceci:
Regarde la pièce jointe Interdire les doublons.xls

Bonne journée.

 

[job75]

Re : Transposer formule simple en VBA

Bonjour,

Ajouter ceci dans la macro :

p = Application.VLookup([D5], Feuil3.[A:B], 2, 0)
If Not IsError(p) Then .Cells(lig, 4) = p
.[A:D].Sort .[C1], xlDescending, Header:=xlYes 'tri sur les numéros

La variable p doit être déclarée As Variant.

A+

 

[job75]

Re : Transposer formule simple en VBA

Re,

Ah vous aviez mis des formules en colonne D de la feuille Data...

Effacez-les toutes bien sûr.

A+

 

[job75]

Re : Transposer formule simple en VBA

Re,

Si vous tenez absolument à avoir des formules en colonne D de la feuille Data utilisez :

F = "VLOOKUP(RC[-1],'" & Feuil3.Name & "'!C1:C2,2,0)" 'Feuil3=CodeName
F = "=IF(ISERROR(" & F & "),""""," & F & ")"
.Cells(lig, 4).FormulaR1C1 = F
.[A:D].Sort .[C1], xlDescending, Header:=xlYes 'tri sur les numéros

Fichier joint.

A+

 

[Lone-wolf]

Re : Transposer formule simple en VBA

Bonjour dra, job. Merci pour votre aide.

Voilà, j'ai fait le test sur les 3 fichiers, mais il n'y a pas de message.

Le code doit donner ceci:
si en D5 le numéro est 4260 (au lieu de 2460), Msg: Ce numéro est erroné. Veuillez le corriger.
Ceci sert à retrouver le poids de la palette et l'inscrire.

La feuille Poids est une feuille où l'on a déjà saisi le poids des palettes(remplies de plastique) et qui on chaqu'une leurs numéros.
En suite(quand on vide les palettes) on rentre le numéro correspondant, qui lui vas retrouver et inserer le poids dans la feuille Data.


A+

 

[job75]

Re : Transposer formule simple en VBA

Re,

Voilà, j'ai fait le test sur les 3 fichiers, mais il n'y a pas de message.

Vous n'avez jamais parlé de message...

Vous êtes inscrit depuis mars 2010, vous devriez savoir qu'il faut être clair dès le 1er post.

Et vous devriez commencer à être capable d'écrire une ligne de code, non ?

Voyez ce fichier (2)

A+

 

[Lone-wolf]

Re : Transposer formule simple en VBA

Désolé job, toutes mes excuses. 😱

C'est vrai que j'aurais du être plus clair.

Concernant l'écriture du code; j'utilise à l'occasion Excel, et il m'est difficile d'appréhender le VBA qui est plus complexe que les formules.

Merci infiniment et très bon weekend.