Bonsoir à tous,
j'ai un problème avec la macro suivante :
Elle inscrit bien ce que je lui demande sur 4 colonne d'une ligne puis s'arrête (jusque là normal car il n'y a plus de valeurs correspondante) en me donnant le code d'erreur mentionné 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
19
20
21
22
23
24
25
26
27
28
29
30 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Byte ' ligne tableau planif Dim j As Byte ' colonne tableau planif Dim f As Byte 'incrémentation pour recherche Dim eb 'valeur de ligne bati de la planif Dim planb As Worksheet 'feuille planning par bati Dim plan As Worksheet 'feuille plannif Set planb = Worksheets("planning par bati") Set plan = Worksheets("planif") planb.Activate For i = 10 To 40 f = 5 For j = 7 To 23 eb = Application.WorksheetFunction.Index(Range("I" & f & ":I" & Range("I" & Rows.Count).End(xlUp).Row), Application.WorksheetFunction.Match(planb.Range("A1"), Range("I" & f & ":I" & Range("I" & Rows.Count).End(xlUp).Row), 0)).Row If eb <> 0 Then planb.Cells(i, j) = eb f = eb + 1 End If Next Next End Sub
J'ai bien essayé d'utiliser des "if iserror" et d'autres fonctions pour justement contourner le problème mais dans tout les cas le message d'erreur apparait. je souhaiterai qu'il laisse la cellule vide.
pouvez vous m'aiguiller svp?
Merci d'avance
Partager