comment activer une validation

[bourgeois]

bonjour tous internaute voila comme je suis novice dans excel j ai récupère un que j ai modifier a ma sauce mes pas encore fini ,je voudrais que quand j appuis sur valide il s incrémente dans la feuille historique je vous remercie d avance et vous souhaite a tous un bon weekend

 

[grisan29]

bonjour Bougeois
bienvenue sur le Forum
tu as récupéré le fichier ou les codes car pour que cela fonctionne il faut déclaré les variables, perso j'aurais regroupé tous les boutons sur un userform

 

[Lone-wolf]

Bonjour Bougeois bienvenue sur le Forum
Bonjour Pascal

Et notre nouveau venu travaille sur MAC apparemment.

 

[bourgeois]

bonjour grisan 29 je te remercie pour ta rapidité mes Comment on fait il y a des cours pour apprendre ou comprendre comment sa fonctionne car c est évident et encore mercie

 

[bourgeois]

Bonjour Bougeois bienvenue sur le Forum
Bonjour Pascal

Et notre nouveau venu travaille sur MAC apparemment.

merci pascal non sur pc pas de mac

 

[grisan29]

bonjour Lone-wolf
je n'avais pas remarqué que c'est un mac que notre ami utilise n'en ayant jamais ouvert un, bon pour des exemples il faut commencer ^par un bon tuto
https://www.excel-downloads.com/forums/trucs-et-astuces.34/
voici le code de la mise a jour d'articles

Sub ajout_art()
    Range("A4").Select
    Range(Selection, Selection.End(xlDown)).Select
    derligstock = Range("A" & Rows.Count).End(xlUp).Row
    ActiveWorkbook.Names.Add Name:="base_art", RefersToR1C1:="=Stock!R4C1:R" & derligstock & "C1"
    Sheets("Entrée").Select
    Range("A4").Select
    Range(Selection, Selection.End(xlDown)).Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
             xlBetween, Formula1:="=base_art"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    Sheets("Sortie").Select
    Range("A4").Select
    Range(Selection, Selection.End(xlDown)).Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
             xlBetween, Formula1:="=base_art"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    Sheets("Stock").Select
    Range("A4").Select

    MsgBox "Mise ˆ jour de la liste des articles effectuée avec succs !"

End Sub

 

[grisan29]

bonjour Bourgeois, Lone-wolf et le forum
je ne sais pas mais je serai partant pour un userform pour remplacer tous tes boutons mais le je pêche et je pense que l'ami Lone-wolf pourrai le faire
car je vais partir pour revenir tard ce soir et a partir de demain mon travail me permettra pas de revenir avec des idées claires

 

[Lone-wolf]

Re Pascal

Ayant travailler sur un mac dans une entreprise, je vois ça tout de suite. Les "é" sont modifiés, Il y a un chapeau à l'envers sur d'autres etc.

 

[grisan29]

bonjour Lone-Wolf
oui j'ai remarqué ces signes surtout sur le "é" mais jamais je n'aurais pensé a un mac, j'ai déja eu des codes
écrits comme cela et un coup de "CTRL+F" et hop remplacé
jamais eu de PC en entreprise en tant qu'ouvrier mais en tant que mon patron oui mais pas de mac

 

[Lone-wolf]

Et bien à l'époque un responsable m'avait demander de reprogammer un fichier de gestion de stock. Moi sur PC eux sur MAC, c'était la galère. Je n'ai jamais compris ce disfonctionnement, mystères de l'informatique.

 

[bourgeois]

bonjour a tous les internaute du forum merci a grisan et lone pour m avoir répondue j ai essaye mes je suis pas arriver mon bouton valider ne fonctionne pas même annuler je crois que je dois être très nulle alors mes je vais encore essaye et j espéré trouver je crois que sa etre long pour l instant je le ferais manuellement je souhaite une bonne journee a vous tous

 

[bourgeois]

bonjour a tous les internautes du forum
j ai essaye et je ne suis pas arriver donc je pense que je suis vraiment nulle est ce que on pourrais m aide ou me donne des explications pour que je puisse comprendre le fonctionnement je vous remercie d avance et souhaite un bon dimanche a tous

 

[Lone-wolf]

Bonjour borgeois

Dans ton cas j'écouterais les conseils de Pascal. Ensuite, il faut revoir les articles du stock avec ceux qui sont sur les boutons, coffret xxxx n'est pas dans celui-ci par exemple .

@Pascal: evite tous ces Select pour l'amour du ciel, depuis le temps tu devrais le savoir.

Sheets(x).select, range("a4").Select etc.

D'après le code, tu crée des listes de validation. Alors un voici un exemple à adapter

Option Explicit

Sub TestValidations()
Dim derlig As Long, i As Long, x As Integer, plage(1 To 5) As String

    On Error Resume Next

    With Feuil1
        .Range("a2:e65536").Validation.Delete
        derlig = .Range("a" & Rows.Count).End(xlUp).Row + 1
        x = 1
        plage(1) = "=Feuil2!$A$2:$A$32"
        plage(2) = "=Feuil2!$B$2:$B$32"
        plage(3) = "=Feuil2!$C$2:$C$32"
        plage(4) = "=Feuil2!$D$2:$D$32"
        plage(5) = "=Feuil2!$E$2:$E$32"

        For i = 2 To derlig
            x = x + 1
            With .Range("a" & x)
                .Validation.Add Type:=xlValidateList, Formula1:=plage(1)
            End With
            With .Range("b" & x)
                .Validation.Add Type:=xlValidateList, Formula1:=plage(2)
            End With
            With .Range("c" & x)
                .Validation.Add Type:=xlValidateList, Formula1:=plage(3)
            End With
            With .Range("d" & x)
                .Validation.Add Type:=xlValidateList, Formula1:=plage(4)
            End With
            With .Range("e" & x)
                .Validation.Add Type:=xlValidateList, Formula1:=plage(5)
            End With
        Next i
    End With
End Sub