bonjour,
je voudrai effectuer un test entre une variable valeur (qui peut prendre n'importe quelle valeur entre la cellule C5 et C407) et ma variable code qui a été demandé précédemment. En fonction de si elles sont égales ou différente je voudrai supprimer l'intégralité de la ligne en gros si oui je conserve que les lignes ou valeur=code ni non je supprime toute les lignes où valeur=code. Or ne n'arrive pas a faire varier ma variable valeur. Pour l'instant j'ai testé ça :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub trie_bom_1()
Dim Code As String
Dim Valeur As String
         Code = InputBox("Entrez le code produit à 10 chiffres.", "demande de code", "exemple : 4612091900")
         If Len(Code) = 10 And IsNumeric(Code) Then
                  If MsgBox("Voulez-vous conserver ou supprimer les lignes contenant ce code ?" & Chr(10) & "oui pour conserver" & Chr(10) & "non pour supprimer", vbYesNo, choix) = vbYes Then
                  Range (Cells(5, 3)) < Valeur > Range(Cells(407, 3))
                           If Valeur = Code Then
                           MsgBox ("Seul les lignes contenant le code ont été conservé.")
                           Else
                           Range("valeur").Select
                           Selection.Delete Shift:=xlUp
                           MsgBox ("Seul les lignes contenant le code ont été conservé.")
                           MsgBox ("Seul les lignes contenant le code ont été conservé.")
                            Else
                           'meme chose sauf que j'inverse le then et le else'
                  MsgBox ("Seul les lignes contenant le code ont été suprimmé.")
                  End If
         Else
                 MsgBox ("Opération annulé, le code ne contient pas 10 chiffres ou vous avez appuyé sur annuler. ")
         End If
End Sub
merci de votre aide (je tiens à préciser que j'ai un niveau plus que faible en vba donc désolé si j'ai écris de grosses bourdes) dsl j'ai pas réussi a mettre les alinéas comme dans vba pourtant je les ai bien tapé