Aide sur code VBA

Bonjour,

je suis nouveau sur ce forum, je n'ai aucune notion du code VBA cela m'arrive d'en faire mais uniquement par "enregistrer une macro".

j'ai essayé de trouver mais ne suis pas parvenu a trouver un code qui me permettrait de gagner un peu de temps sur mon tableau. (planning)

Voila ma demande

Mon planning contient une colonne ou est indiqué les postes (Matin , Midi; Nuit) par opérateur Je voudrais pouvoir sélectionner des cellules de cette colonnes et via un bouton (qui sera affecté à la macro) changer les postes selon un roulement prédéfini (Pour certaines cellules Matin devient Nuit, Midi devient Matin et Nuit devient Midi, pour d'autres Matin devient midi et Midi devient matin).

Merci par avance

Bonjour,

Joindre le tableau existant, sans données confidentielles, serait un plus.

Cordialement.

un copie d'écran suffit elle (c'est délicat pour moi de vous transmettre le tableau) ?

Bonsoir,

Un code minimaliste si j'ai bien tout compris :

Public Sub AffectationChange()
    Const Poste As String = "A:A"
    On Error GoTo Catch
    If Selection.Columns.Count = 1 Then
        If Not Intersect(Selection, Range(Poste)) Is Nothing Then
            Application.EnableEvents = False
            Dim item As Excel.Range
            For Each item In Selection
                With item
                    Select Case .Value
                        Case "Matin":   .Value = "Nuit"
                        Case "Midi":    .Value = "Matin"
                        Case "Nuit":    .Value = "Midi"
                    End Select
                End With
            Next item
        End If
    Else
        MsgBox "Sélectionner les cellules d'une même colonne"
    End If
Catch:
    If Err.Number > 0 Then
        'TODO "Make something"
    End If
    Application.EnableEvents = True
End Sub

Et pour l'appel :

Private Sub CommandButton1_Click()
    AffectationChange
End Sub

La feuille doit comporter un bouton de commande "CommandButton1"

Bonjour,

merci pour votre réponse, mais cela ne fonctionne pas une fois les cellules sélectionnées je lance la macro il ne se passe rien.

je vous joint le fichier j'ai retiré les donnés confidentielles

Bonjour,

Il était bien entendu au vu des informations fournis qu'il fallait adapter le code.

Le fichier joint ne pouvait pas fonctionner puisque le bouton n'avait pas de macro affecté, et que la première colonne que l'on voit sur l'impression d'écran est la colonne B.

Maintenant pour ma part, et au vu du fichier. Je ne vois pas trop l'intérêt de cette demande...

top ! Merci beaucoup j'ai adapté a mon fichier, fonctionne comme je voulais.

Parfois il faut peu a celui qui ne maitrise pas les macros pour le rendre happy