Saisie avec condition

Bonjour

j'ai fichier de plusieurs colonnes, je cherche un code vba qui me permet de :

si je remplie la cellule "C" et une fois valider par entrée je dois passer directement à la saisie de la cellule "G" puis "J" . LES deux dernières cellules sont conditionner par la saisie de la première "C".

Merci à tous.

Bonjour le forum,

Proposition ?

Saisie en C, puis déplacement avec la touche TAB pour les autres saisies.

23tab.xlsx (10.78 Ko)

merci pour ton passage, mais ta solution ne me convient pas, je ne cherche pas à verrouiller les autre colonnes.

Bonjour

a tester

Cordialement

14test.xlsx (9.34 Ko)

J'ai mal exposé mon problème.

j'ai des cellules à remplir A,B,C....... jusqu'au K.

A- date

B- type

C-numéro ( si remplie, les autre colonnes à remplir seront G-J )

D-envoi ( si remplie, les autre colonnes à remplir seront E-F-G-K )

.le déplacement entre les cellules doit se faire soit par ENTER ou TAB.

C & D ne peuvent pas être remplies en même temps.

.J & K ne peuvent pas être remplies en même temps.

je sais que c'est trop demandé et que je dois envoyé un fichier mais vu que c'est confidentiel je vous demande d'être patients et tolérants.

merci encore

Voici un model pour mieux comprendre mon besoin.

13exemple.xlsx (11.04 Ko)

Bonjour maximob (Amadeus, mbbp...)

Quelque chose comme ça ? à intégrer dans le code VBA de la feuille concernée.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lig, col

    Application.EnableEvents = False

    lig = Target.Row
    col = Target.Column

    Select Case col
        Case 4
            If Not (Cells(lig, 3) = "") Then
                Cells(lig, 7).Select
            End If
        Case 8
            If Not (Cells(lig, 3) = "") Then
                Cells(lig, 10).Select
            End If

        Case 10
            If (Cells(lig, 3) = "") Then
                Cells(lig, 11).Select
            End If

        Case 11
            If Not (Cells(lig, 3) = "") Then
                Cells(lig + 1, 1).Select
            End If

        Case 12
            Cells(lig + 1, 1).Select

    End Select

    Application.EnableEvents = True
End Sub

Bonjour Andréa73

j'ai quelques modif sur ton code, mais ça coince au niveau de case 8.

8exemple.xlsm (17.82 Ko)

Bonjour maximob

Peux-tu faire un exemple complet des "NATURE" (colonne 2) avec des couleurs comme le premier exemple pour que je regarde OU ça coince ?

Rebonjour Andréa73

sans problème. regarde La feuille NATURE.

9exemple.xlsm (19.70 Ko)

(re)

Ce n'est pas tout fait ce que je te demandais comme exemple... j'aurais voulu que tu fasse une sorte de dessin "colorés" comme dans le premier fichier EXEMPLE, dans lequel se voyait très bien "quelle colonne" atteindre dans "quel cas", parce que dans la modification de mon code j'ai vu que tu avais ajouté des conditions...

je m'excuse, voici ce que tu m'as demandé.

7exemple.xlsm (13.24 Ko)

merci pour ton temps.

Bonjour maximob

Voici l'amélioration du fichier...

Quelques explications...

Dans l'onglet "NATURE" j'ai créé une liste des rubriques "NATURE" de l'opération avec en face toutes les colonnes disponibles... à chaque fois qu'il y a un X dans la colonne elle sera sélectionnée lors de la saisie.

PS/ j'ai placé les X en fonction des couleurs de l'onglet "Feuil1" à toi d'adapter en fonction des besoins...

PPS/ si une nouvelle "NATURE" d'opération devait s'ajouter il suffit de l'ajouter dans l'onglet "NATURE" et de mettre les X dans les colonnes souhaitées...

6exemple-v2.xlsm (29.25 Ko)

impeccable, introuvable et ça se voit

merci Andréa73. c'est exactement ce que je cherchais.

(re)

maximob a écrit :

impeccable

as-tu besoin d'explications sur le code ?

Non,

merci d'avance.

Rechercher des sujets similaires à "saisie condition"