optimiser un code....

[natorp]

Bonsoir à tous et toutes

j'ai le code suivant qui m'affiche un userform si le critère cellule ="" quand je clique sur sur cellule choisie
or il m'affiche autant de fois le userform qu'il y a de cellule ="" dans les différentes feuilles du classeur
j'aimerais que le nom des différentes feuilles s'affichent dans un seul userform


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B21:AF36")) Is Nothing Then
If Target.Value = "x" Or Target.Value = "" Then Exit Sub
x = Target.Column
Vdate = Cells(20, x)
y = Target.Row
Horaire = Cells(x, 1)
For j = 21 To 24
Feuille = Cells(j, 33)
With Sheets(Feuille)
If .Cells(y, x) = "" Then
With UserForm2
.Caption = "LES DISPONIBILITES"
.Label1.Caption = "Le " & Vdate & vbCrLf & vbCrLf & "Dans ce créneau" & _
vbCrLf & "La salle suivante :" & vbCrLf & Feuille & _
vbCrLf & "est disponible"
.Show
End With
End If
End With
Next
End If
End Sub

Merci de votre aide, cordialement
Gérard

 

[skoobi]

Re : optimiser un code....

Bonjour Gerard,

Avec le fichier on pourra mieux imaginer ce qui se passe.

or il m'affiche autant de fois le userform qu'il y a de cellule ="" dans les différentes feuilles du classeur
j'aimerais que le nom des différentes feuilles s'affichent dans un seul userform

Pour ma part c'est pas très clair.
Explique ce que tu veux faire exactement.

Bonne soirée.

 

[natorp]

Re : optimiser un code....

bonsoir,
j'ai pu mettre une pièce jointe en réduisant au maximum et avec une explication dans la première feuille

merci de votre aide
Cordialement, Gérard

 

[kjin]

Re : optimiser un code....

Bonsoir,
Pas pris le temps de revoir ton fichier...
Je te laisse réadapter le message à ta convenance

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[COLOR="Blue"]If Target.Count > 1 Then Exit Sub[/COLOR]
If Not Intersect(Target, Range("B21:AF36")) Is Nothing Then
    If Target.Value = "x" Or Target.Value = "" Then Exit Sub
    x = Target.Column
    Vdate = Cells(20, x)
    y = Target.Row
   [COLOR="Blue"] Horaire = Cells(y, 1)[/COLOR]
    For j = 21 To 23
    feuille = Cells(j, 33)
        With Sheets(feuille)
             If .Cells(y, x) = "" Then
                [COLOR="Blue"]Message = Message & feuille & vbCrLf[/COLOR]
             End If
        End With
    Next
[COLOR="Blue"]    With UserForm2
        .Caption = "LES DISPONIBILITES"
        .Label1.Caption = "Le " & Vdate & vbCrLf & vbCrLf & "Salles disponibles" & vbCrLf & _
            "dans le créneau " & Horaire & vbCrLf & vbCrLf & Message
        .Show
    End With[/COLOR]
End If

End Sub

A+
kjin

 

[natorp]

Re : optimiser un code....

C'est parfait !!!! (comme tjrs .....)

merci de ton aide, le fichier est pratiquement finalisé.....
au plaisir, Gérard