Imbrication d'une macro dans fonction si

Fermé

paul47300 Messages postés 7 Date d'inscription jeudi 13 janvier 2022 Statut Membre Dernière intervention 14 avril 2022 - Modifié le 13 avril 2022 à 17:03
yg_be Messages postés 23346 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 24 novembre 2024 - 14 avril 2022 à 12:08

Bonjour à tous,
Je cherche à imbriquer une macro dans une fonction si.
n'étant vraiment pas encore formé à VBA je cherche de l'aide svp.

Je voudrai que la colonne F2 de la feuille "creations " ça me fige l'écran puis ça exécute:

Si F2 est vide alors ça m'exécute la macro 1

Sinon ça me laisse ce qu'il y avait écrit et ça passe à F3

Puis ça me répète l'opération jusqu'à F1000

J'ai déjà le Call macro1 mais ce qui me pose soucis c'est l'utilisation de la fonction si
J'ai essayé l'enregistreur de macro mais rien.

voici un lien de téléchargement wetransfer si besoin du classeur
https://wetransfer.com/downloads/6c061fbce7c8477a54c3d60fcaf7a22520220413145940/145688

Cordialement
Brezillon Paul

A voir également:

Imbrication d'une macro dans fonction si
Fonction si et - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro word - Guide
Fonction moyenne excel - Guide
Macro logiciel - Télécharger - Organisation

1 réponse

Réponse 1 / 1

yg_be Messages postés 23346 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 24 novembre 2024 Ambassadeur 1 552
13 avril 2022 à 18:20

bonjour,
une suggestion:

Sub Macro1()
Dim rg As Range
Set rg = Sheets("CREATIONS").[f2]
Do While rg.Offset(, -5) <> ""
    If rg <> "" Then
        With rg.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=$L$38:$L$44"
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
    End If
    Set rg = rg.Offset(1)
Loop
End Sub

paul47300 Messages postés 7 Date d'inscription jeudi 13 janvier 2022 Statut Membre Dernière intervention 14 avril 2022
14 avril 2022 à 08:35

Bonjour et merci!
Disons que c'est l'inverse que je veux...
C'est quand la cellule est vide que ça m'affiche la liste sinon si c'est déjà rempli passer à la cellule suivante

paul47300 Messages postés 7 Date d'inscription jeudi 13 janvier 2022 Statut Membre Dernière intervention 14 avril 2022 > paul47300 Messages postés 7 Date d'inscription jeudi 13 janvier 2022 Statut Membre Dernière intervention 14 avril 2022
14 avril 2022 à 10:38

Finalement j'ai trouvé!!! j'ai rajouté not après le if! :D
Merci!!

yg_be Messages postés 23346 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 24 novembre 2024 1 552 > paul47300 Messages postés 7 Date d'inscription jeudi 13 janvier 2022 Statut Membre Dernière intervention 14 avril 2022
14 avril 2022 à 12:08

peux-tu alors marquer la discussion comme résolue?

Discussions similaires

je veut créer des codes

Remplir une cellule (texte) en fonction d'une autre (texte).

Excel:récupérer le contenu d'une cellule en fonction d'une autre