Discussion :

[abdelkarim_1987]

Bonjour Tout le monde , j'ai ce code qui me permet de récupérer mes cellules dans mon formulaire ça marche bien mais à un moment ça plante et ça m'affiche l'erreur dans le titre

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
Dim ok As Boolean
Private Sub ComboBoxCodeGDO_Change()
    Dim Ligne As Integer
    Dim derlign As Long
    If ok = True Then Exit Sub
    With Sheets("Information2")
    derlign = .Range("A65536").End(xlUp).Row
    Ligne = .Range("A2:N" & derlign).Find(ComboBoxCodeGDO, lookat:=xlWhole).Row
    ok = True
    ComboBoxCodeDépartHTA.Value = .Range("H" & Ligne)
    ComboBoxNomDépartHTA.Value = .Range("I" & Ligne)
    'ComboBoxCodeGDO.Value = .Range("J" & Ligne)
    ComboBoxNomPoste.Value = .Range("K" & Ligne).Value
    ComboBoxCommune.Value = .Range("M" & Ligne).Value
    ComboBoxSiteOpérationnel.Value = .Range("N" & Ligne)
    End With
    ok = False
    End Sub

sachant que j'ai dans ma feuille plus que 20 000 lignes est il vient de al déclaration des variables

[EngueEngue]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Ligne As Long

Apprends à donner la ligne de plantage du code Dernière fois.

[casefayere]

Tu gères plusieurs problèmes en même temps sans avoir répondu, au moins à celui-ci

[abdelkarim_1987]

Je vais en répondre, la je m'occupe plus pour faire fonctionner le formulaire avec les doublons ensuite je m occuperai des doublons.

c'est cette ligne qui plante , et déclarer ligne en long ça résout pas le problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    Ligne = .Range("A2:N" & derlign).Find(ComboBoxCodeGDO, lookat:=xlWhole).Row

[EngueEngue]

S'il ne trouve pas ton codeGDO il plante... normal tu demandes la row de nothing

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
Dim ok As Boolean
Private Sub ComboBoxCodeGDO_Change()
    Dim Ligne As Integer
    Dim derlign As Long
    On Error GoTo pastrouvé
    If ok = True Then Exit Sub
    With Sheets("Information2")
    derlign = .Range("A65536").End(xlUp).Row
    Ligne = .Range("A2:N" & derlign).Find(ComboBoxCodeGDO, lookat:=xlWhole).Row
    ok = True
    ComboBoxCodeDépartHTA.Value = .Range("H" & Ligne)
    ComboBoxNomDépartHTA.Value = .Range("I" & Ligne)
    'ComboBoxCodeGDO.Value = .Range("J" & Ligne)
    ComboBoxNomPoste.Value = .Range("K" & Ligne).Value
    ComboBoxCommune.Value = .Range("M" & Ligne).Value
    ComboBoxSiteOpérationnel.Value = .Range("N" & Ligne)
    End With
    ok = False
pastrouvé:
    MsgBox ("CodeGDO non présent")
    End Sub

[abdelkarim_1987]

Pourquoi , il le trouve alors que je récupère les cellules de tableau excel donc certainement il existe, quand je regarde ma feuille j'ai bien tous les GDO Mais ç actualise pas mes menus alors que d'autres les menus s'actualisent

[EngueEngue]

Si tu utilises l'évenement initialize pour actualiser tes userforms, tant que tu ne le Unloads pas, il ne va pas se réinitializer.