PROBLEME sur VARIABLE

Version imprimable

1 pièce(s) jointe(s)

Pièce jointe 236264 Pièce jointe 236264

Bonjour,

Je cherche à mettre à jour une base de données mais je n'y arrive pas sur une colonne.
Je m'explique : combobox2 est une liste de numéro de dossiers.
Checkbox1 = "Terminé" checkbox2" = en cours,
J'ai un problème avec ma variable "y" que je n'arrive pas à identifier (sur userform2).
Pourriez vous m'aider, svp ?
voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Private Sub CommandButton1_Click()
 
Dim y As Long
Dim b As Boolean
 
  With Worksheets("BDD").Activate
 
    For y = 2 To .Range("A1").CurrentRegion.Rows.Count
      b = Me.ComboBox2.Value = .Cells(y, "B").Value
 
              If CheckBox1.Value = True Then .Cells(y, 8).Value = "OUI"
'sheets("BDD").Cells(Lg, 22).Value = CDate(UserForm10.DTPicker1.Value)
        .Range(.Cells(y, 1), .Cells(y, 8)).Select
        If CheckBox2.Value = True Then .Cells(y, 8).Value = "ANNULE"
        MsgBox ("Enregistrement effectué")
        'Sheets("SOMMAIRE").Activate
        Exit For
 
 
    Next y
 
    If b Then
      Unload Me
    Else
      MsgBox ("Données non trouvées!!! ")
    'Sheets("SOMMAIRE").Activate
    End If
    End With
    End Sub

bonjour
essayer d'adapter ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton1_Click()
 
   Dim DernLigne As Long
DernLigne = Sheets("BDD").Range("A" & Rows.Count).End(xlUp).Row
Dim plage As Range
Set plage = Sheets("BDD").Range("B2:B" & DernLigne)
codrecherché = CDbl(ComboBox2.Value)
With Sheets("BDD")
For Each cell In plage
If cell.Value = codrecherché Then
      If CheckBox1.Value = True Then
      .Cells(cell.Row, 6).Value = "OUI"
 
    Else
      MsgBox ("Données non trouvées!!! ")
    End If
    End If
    Next cell
 
   End With
 
    End Sub

19/01/2017, 09h55
AXOU91

Merci à toi,

Tu as reussi à me mettre sur la piste, je vais pouvoir completer, je te remercie.

@+

Bonjour,

Le code de ce type

Code:

1
2
For Each cell In plage
If cell.Value = codrecherché Then

marche mais est en général très lent .....

Il vaut mieux passer par un autofilter, en filtrant sur codrecherché et extraitre la sortie en passant par les specialcells, en une seule passe.
Voir les tutoriels si affinité ou un exemple à la hache:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub Exemple_AutoFilter()
 
Dim Wsh As Worksheet
Dim SrcRng As Range, DataRng As Range
Dim codrecherché as Double
 
'Initialisation
    Set Wsh = ActiveSheet 'A adapter
 
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = True   'A adapter
    End With
    Set SrcRng = Wsh.Range("A1").CurrentRegion 'A adapter
 
   codrecherché = CDbl(ComboBox2.Value)
 
' On filtre sur les valeurs dupliquées
    SrcRng.AutoFilter Field:=2, Criteria1:=codrecherché     '
 
' On ne prend que les data affichées après le filtre
    Set DataRng = SrcRng.Offset(1, 0).Resize(SrcRng.Rows.Count - 2, SrcRng.Columns.Count).SpecialCells(xlCellTypeVisible)
    Debug.Print DataRng.Address
 
 
' Et on efface
    DataRng.Rows.Delete
    SrcRng.AutoFilter Field:=4      ' On reset les filtres
 
' Ou encore plus rapide!
    SrcRng.RemoveDuplicates Columns:=2, Header:=xlYes
    Application.ScreenUpdating = True
 
 
End Sub