Proposition de choix d'emplacement

bonjour,

mon code me signal

que cet emplacement existe déjà

Changez d'emplacement

je voudrais

que cet emplacement existe déjà

et que la macro me fasse une proposition de choix par rapport a une liste par exemple

1 emplacement pris pas de proposition

1 emplacement de nouveau libre 1 proposition

je n'est pas de piste

je joins un fichier exemple

A+

aiglon74

Peut-être comme ceci en utilisant la méthode find...

Else
            Dim trouve As Range
            Set trouve = Feuil3.Range("b:b").Find("LIBRE", lookat:=xlWhole)
            If Not trouve Is Nothing Then
                MsgBox "Cet emplacement existe déjà !" & Chr(10) & " l'emplacement " & trouve.Offset(0, -1) & " est disponible", vbCritical, "Erreur d'emplacement"
            End If

            Exit Sub

Bonsoir Force rouge,

je viens de testé ton code ok

je vais l'intégré a mon classeur

pour finir mon teste

mais apriori ca fonctionne

merci pour le partage de tes connaissances

et ce cours Excel vba

encore merci

A+

Aiglon74

De rien, c'est une première solution rapide, il y en a peut-être d'autre plus pertinente à mettre en place selon ce que vous voulez faire.

Rechercher des sujets similaires à "proposition choix emplacement"