Une modification du code pour exclure certaines colonnes Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Cancel = True Dim colE As Range Dim colG As Range Dim colI As Range Dim colK As Range Dim colM As Range Dim plage As Range Dim ref As String Dim c As Range Set colE = Application.union(Range("E15"), Range("E20"), Range("E25"), Range("E30"), Range("E35"), Range("E40"), Range("E45"), Range("E50"), Range("E55"), Range("E60")) Set colG = Application.union(Range("G15"), Range("G20"), Range("G25"), Range("G30"), Range("G35"), Range("G40"), Range("G45"), Range("G50"), Range("G55"), Range("G60")) Set colI = Application.union(Range("I15"), Range("I20"), Range("I25"), Range("I30"), Range("I35"), Range("I40"), Range("I45"), Range("I50"), Range("I55"), Range("I60")) Set colK = Application.union(Range("K15"), Range("K20"), Range("K25"), Range("K30"), Range("K35"), Range("K40"), Range("K45"), Range("K50"), Range("K55"), Range("K60")) Set colM = Application.union(Range("M15"), Range("M20"), Range("M25"), Range("M30"), Range("M35"), Range("M40"), Range("M45"), Range("M50"), Range("M55"), Range("M60")) Set plage = Application.union(colE, colG, colI, colK, colM) If Not Intersect(Target, plage) Is Nothing Then If Target > "" Then ref = Target.Value Else MsgBox "Référence incorrecte" Exit Sub End If With Worksheets("Feuil1").Range("A1:A15") ' problème avec feuille 4, zone restreinte pour le test Set c = .Find(ref, LookIn:=xlValues) If Not c Is Nothing Then MsgBox " Cellule " & c.Address & " de la feuille 1" ' votre code copie de ligne à insérer ici Else MsgBox "Référence inexistante" End If End With Else ' a définir End If End Sub

re, tester ce début de prog la feuille 4 est à restructurer avant de continuer

XL 2016 - Incompatibilité de type entre Listenom et la première ligne de code | Page 2

fanch55

XLDnaute Barbatruc

5 Mai 2020

Regardes si cela te convient, je ne crée pas de feuille .
Il faut "double-cliquer" sur une cellule Produit pour en avoir les caractéristiques .

Désolé pour le délai, mais les cellules fusionnées m'ont quelque peu contrarié ...

Vote positif 0 Vote négatif

Effectuez une recherche sur Excel Downloads...

XL 2016 Incompatibilité de type entre Listenom et la première ligne de code

amateur

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Membres actuellement en ligne

Partager cette page

Tutos vidéos

Statistiques des forums