Erreur d'exécution '13': Incompatibilité de type

  • Initiateur de la discussion Initiateur de la discussion Bennn
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Bennn

XLDnaute Nouveau
Bonjour le forum,
Je souhaiterais profiter de vos lumières pour un souci dans une macro. Je veux identifier les doublons dans une colonne et en écrivant le code ci-après (grâce à la capitalisation d'info sur le forum), il y a un message d'erreur cité en sujet.
Pourriez vous me dire ce qui ne va pas dans ma synraxe.
Merci de vos réponses

Private Sub ComboBox1_Change()

Dim Plage As Range, Cell As Range
Dim Msg As String
'Dim i As Integer
Dim i As Variant

With Worksheets('tableau')
derlign1 = .Range('A65536').End(xlUp).Row
For Each codelign1 In Worksheets('tableau').Range('A2:A' & derlign1)
If codelign1 = ComboBox1 Then
ComboBox2 = .Range(Cells(codelign1.Row, 2).Address).Value
ComboBox3 = .Range(Cells(codelign1.Row, 3).Address).Value
ComboBox4 = .Range(Cells(codelign1.Row, 4).Address).Value
ComboBox5 = .Range(Cells(codelign1.Row, 5).Address).Value
ComboBox6 = .Range(Cells(codelign1.Row, 6).Address).Value
TextBox1 = .Range(Cells(codelign1.Row, 8).Address).Value
TextBox2 = .Range(Cells(codelign1.Row, 9).Address).Value
TextBox3 = .Range(Cells(codelign1.Row, 10).Address).Value
TextBox4 = .Range(Cells(codelign1.Row, 11).Address).Value
TextBox5 = .Range(Cells(codelign1.Row, 12).Address).Value
TextBox6 = .Range(Cells(codelign1.Row, 13).Address).Value
TextBox7 = .Range(Cells(codelign1.Row, 14).Address).Value
TextBox8 = .Range(Cells(codelign1.Row, 15).Address).Value

lign1 = codelign1.Row
End If
Next codelign1
End With
Worksheets('tableau').Activate


Set Plage = Range('a2:a' & derlign1)

MsgBox 'Il y a ' & Plage.Count & ' cellules, nous allons les scanner et les colorier'
i = 0
For Each codelign1 In Plage
'For Each Cell In Worksheets('tableau').Range('A2:A' & derlign1)
If codelign1 = ComboBox1 Then
i = i + 1
'Msg = Msg & 'Cellule ' & i & ' : ' & Cell.Address(0, 0) & vbCrLf
'Cell.Interior.ColorIndex = 3
End If
Next

MsgBox 'Voici la Liste des ' & Plage.Count & ' cellules :' & vbCrLf & Msg



End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
201
Réponses
2
Affichages
210
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
511
Réponses
10
Affichages
291
Réponses
5
Affichages
242
Retour