Plage de cellules avec formules
Bonjour,
J'ai un petit souci avec mon code ci-dessous (surligné) erreur d’exécution 13 Incompatibilité de type:
Private Sub ListeChange()
Dim L As Long, Li As Long, NbL As Long, C As Byte
Dim Plage As Range
With Sheets("BDD")
DerLig = .[A65000].End(xlUp).Row
Set Plage = .Range(.Cells(2, 1), .Cells(DerLig, 5))
End With
NbL = Application.WorksheetFunction.CountIf(Plage, "=" & ComboBox1)
If NbL > 0 Then
ReDim Liste1(1 To NbL, 1 To 5)
For L = LBound(Plg, 1) To UBound(Plg, 1)
If Plg(L, 2) = ComboBox1 Then
Li = Li + 1
For C = LBound(Plg, 2) To UBound(Plg, 2)
Liste1(Li, C) = Plg(L, C)
Next C
End If
Next L
Liste = Liste1
If UBound(Liste) = 1 Then
Label1.Caption = "Il y a : " & UBound(Liste) & " résultat"
Else: Label1.Caption = "Il y a : " & UBound(Liste) & " résultats"
End If
IniLb
Else: MsgBox "Pas de données,un autre choix,svp"
End If
End Sub
Je pense que l'erreur vient du fait que la plage de cellule qu'elle va sélectionnée contient des formules... Comment puis je faire pour sélectionner une plage de données avec des formules?
Cordialement,
Bonjour,
je cherche la variable plg (qui est un tableau à 2 dimension si j'ai bien compris)
à tester avec
If Plg(L, 2) = ComboBox1.value Then If Plg(L, 2) = ComboBox1.Test Thenpardon
bonjour,
Pas de fichier joint = pas beaucoup de chance de motiver quelqu'un...
A+
Bonjour!!!
minanse a écrit :Bonjour,
je cherche la variable plg (qui est un tableau à 2 dimension si j'ai bien compris)
à tester avec
If Plg(L, 2) = ComboBox1.value ThenIf Plg(L, 2) = ComboBox1.Test Thenpardon
J'ai testé ta méthode et ça ne fonctionne pas malheureusement
galopin01 a écrit :bonjour,
Pas de fichier joint = pas beaucoup de chance de motiver quelqu'un...
A+
Je vais essayé de mettre un fichier très bientôt dans ce cas.
Merci. Bonne journée!
Bonjour,
voici mon fichier avec des explications en plus
Merci pour votre aide!
cordialement,
bonjour,
Tu aurais mis au moins une ou 2 lignes pour que ton USF puisse fonctionner...
Là on n'a que des lignes blanches et une colonne de valeur d'erreur pour des formules qui pointent sur rien du tout !
Tu crois que ça va me motiver beaucoup ?
Quand on joint un classeur il faut que ça nous permette de travailler sans faire des hypothèses délirantes sur ce que vous mettez dedans. Ce classeur ne sert à rien.
Il faut des entêtes de colonnes qui ressemble à des entêtes de colonnes et pas à un morpion.
Au moins une lignes de données vraisemblable par tableau. (on ne demande ni votre N° de carte bleue, ni celui de votre téléphone...)
A+