report dans les textbox

[nrdz83]

Bonsoir lle forum;
Voila mon problème j'ai un userform2 avec deux onglets le premier pour rp et "rp12 "et tout fonctionne, par contre pour rp 10 si je selectionne "loutre "par exemple les données ne s'affiche pas et ça me comptabilise pas les dates < à aujourdhui, là j'y comprend plus rien, j'y suis deçu depuis cet aprés midi et j'avoue que je commence à craquer car je ne comprend pas pourquoi l'un fonctionne et pas l'autre, merci d'avance pour vos lumières. amitiés.
Le lien >>>Cijoint.fr - Service gratuit de dépôt de fichiers

 

[skoobi]

Re : report dans les textbox

Bonsoir,

Il y a un soucis avec le fichier que tu as déposé:
!!! Fichier non accessible !!!

 

[nrdz83]

Re : report dans les textbox

bonsoir skoobi et le forum revoici le lien
Cijoint.fr - Service gratuit de dépôt de fichiers

merci

 

[skoobi]

Re : report dans les textbox

Re,

par contre pour rp 10 si je selectionne "loutre "

la page rp10 est vide...

 

[nrdz83]

Re : report dans les textbox

rebonsoir skoobi là est mon problème je ne comprend pas pourquoi le stextbox ne se remplissent pas

 

[nrdz83]

Re : report dans les textbox

OUPSS desolé j'ai envoyé le mauvais fichier, voila le bon il faut dire que je tourne en bourrique , merci de votre patience

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[kjin]

Re : report dans les textbox

Bonsoir,
Comme déjà signalé plus haut par Skoobi, dans le fichier fourni, il n'y a pas de feuille "RP 10" !!! donc comment résupérer les infos ???
A+
kjin

 

[nrdz83]

Re : report dans les textbox

bsr kjn les posts ce sont croisés 😕

 

[kjin]

Re : report dans les textbox

Re,
Il y a plusieurs erreurs que je n'avais d'ailleurs pas vu hier.
Les listes RP10 et RP12 en feuille3, doivent respecter exactement l'ordre des noms dans tes tableaux, sous peine de renvoyer un mauvais index
RP12

RPC - RASCAS
RPC - SICié
RP - BALAGUIER
RP - GIENS
RP - LARDIER
RP - PORT CROS
RP - TAILLAT

RP10

LOUTRE
OTARIE
PHOQUE

Dans la page RP10, c'est la Combobox2 et non ComboBox1
De plus, supprimme la propriété value de la Combobox2
Si la première ligne de tes tableaux est la ligne 4
Lig = Me.ComboBoxX.ListIndex + 4

Private Sub Bn_Afficher_Click()
  Dim Lig As Long, VPathFic As String
  Lig = Me.ComboBox1.ListIndex + 4
  With Sheets("RP & RPC 12")

    Me.TB_1 = .Range("C" & Lig)
    Me.TB_2 = .Range("E" & Lig)
    Me.TB_3 = .Range("G" & Lig)
    Me.TB_4 = .Range("I" & Lig)
    Me.TB_5 = .Range("L" & Lig)
    Me.TB_6 = .Range("N" & Lig)
    Me.TB_7 = .Range("Q" & Lig)
    Me.TB_8 = .Range("T" & Lig)
    Me.TB_9 = .Range("V" & Lig)
    Me.TB_10 = .Range("X" & Lig)
    Me.TB_11 = .Range("Z" & Lig)
    Me.TB_12 = .Range("AB" & Lig)
    Me.TB_13 = .Range("AD" & Lig)
    Me.TB_14 = .Range("AF" & Lig)
    Me.TB_15 = .Range("AH" & Lig)
    Me.TB_16 = .Range("AJ" & Lig)
    Me.TB_17 = .Range("AL" & Lig)
    Me.TB_18 = .Range("AN" & Lig)
    Me.TB_19 = .Range("AP" & Lig)
    Me.TB_20 = .Range("AR" & Lig)
    Me.TB_21 = .Range("AS" & Lig)
    Me.TB_22 = .Range("AU" & Lig)
    Me.TB_23 = .Range("AW" & Lig)
    Me.TB_24 = .Range("AY" & Lig)
    Me.TB_25 = .Range("AZ" & Lig)
    Me.TB_26 = .Range("J" & Lig)
    Me.TB_27 = .Range("O" & Lig)
    Me.TB_28 = .Range("R" & Lig)
    Compteur = 0
      For i = 1 To 28 'à 25 si tu ne prend pas en compte TB_26, TB_27 et TB_28
        Dat = Me.Controls("TB_" & i)
            If Dat <> "" Then Dat = CDate(Dat)
                If Dat <= Date Then
                    Compteur = Compteur + 1
                    Me.TB_29 = Compteur
                End If
        Next
End With
End Sub

Private Sub Cmd_quit_Click()
Unload Me
End Sub

Private Sub Cmd_Raz_Click()
  Dim c As Control
  For Each c In Me.Controls
     Select Case TypeName(c)
        Case "TextBox"
          c.Value = ""
        Case "CheckBox"
          c.Value = False
        Case "ListBox", "ComboBox"
          c.ListIndex = -1
     End Select
  Next c
End Sub

Private Sub CommandButton1_Click()
 Dim Lig As Long, VPathFic As String
  Lig = Me.ComboBox2.ListIndex + 4
  With Sheets("RP 10")
    Me.TB_rp1 = .Range("C" & Lig)
    Me.TB_rp2 = .Range("E" & Lig)
    Me.TB_rp3 = .Range("G" & Lig)
    Me.TB_rp4 = .Range("j" & Lig)
    Me.TB_rp5 = .Range("L" & Lig)
    Me.TB_rp6 = .Range("O" & Lig)
    Me.TB_rp7 = .Range("R" & Lig)
    Me.TB_rp8 = .Range("T" & Lig)
    Me.TB_rp9 = .Range("V" & Lig)
    Me.TB_rp10 = .Range("X" & Lig)
    Me.TB_rp11 = .Range("Z" & Lig)
    Me.TB_rp12 = .Range("AB" & Lig)
    Me.TB_rp13 = .Range("AD" & Lig)
    Me.TB_rp14 = .Range("H" & Lig)
    Me.TB_rp15 = .Range("M" & Lig)
    Me.TB_rp16 = .Range("P" & Lig)
    Compteur = 0
      For i = 1 To 16 'à 13 si tu ne prend pas en compte TB_rp14, TB_rp15 et TB_rp16
        Dat = Me.Controls("TB_rp" & i)
            If Dat <> "" Then Dat = CDate(Dat)
                If Dat <= Date Then
                    Compteur = Compteur + 1
                    Me.TB_rp17 = Compteur
                End If
        Next
End With
End Sub

Private Sub CommandButton2_Click()
  Dim c As Control
  For Each c In Me.Controls
     Select Case TypeName(c)
        Case "TextBox"
          c.Value = ""
        Case "CheckBox"
          c.Value = False
        Case "ListBox", "ComboBox"
          c.ListIndex = -1
     End Select
  Next c
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub

A+
kjin

 

[nrdz83]

Re : report dans les textbox

merci kjn ok la combobox qui deconné et les deux trois erreurs je te remercie infinement