Discussion :

[many95870]

Bonjour,

Sur un de mes fichier qui fonctionnait bien auparavant, je rencontre un probleme avec Offset. Voici ma macro et l'erreur qui y apparait (en gras). merci par avance.

Dim i As Integer
Dim rng_Index_SuiviOS As Range
Dim rng_SuiviOS As Range


Set rng_Index_SuiviOS = Worksheets("Index_SuiviOS").Range("M14")

With Worksheets("SuiviOS")
Sheets("SuiviOS").Range("A14:K65500").ClearContents
Set rng_SuiviOS = .Range("A14")

For i = 0 To Worksheets("Index_SuiviOS").Columns(13).Find("*", , , , , xlPrevious).Row - 2
If rng_Index_SuiviOS.Offset(i, 0) = "1" Then (erreur 13 incompatibuilité etc....)

rng_SuiviOS.Offset(0, 0) = rng_Index_SuiviOS.Offset(i, -12)
rng_SuiviOS.Offset(0, 1) = rng_Index_SuiviOS.Offset(i, -11)
rng_SuiviOS.Offset(0, 2) = rng_Index_SuiviOS.Offset(i, -10)
rng_SuiviOS.Offset(0, 3) = rng_Index_SuiviOS.Offset(i, -9)
rng_SuiviOS.Offset(0, 4) = rng_Index_SuiviOS.Offset(i, -8)
rng_SuiviOS.Offset(0, 5) = rng_Index_SuiviOS.Offset(i, -7)
rng_SuiviOS.Offset(0, 6) = rng_Index_SuiviOS.Offset(i, -6)
rng_SuiviOS.Offset(0, 7) = rng_Index_SuiviOS.Offset(i, -5)
rng_SuiviOS.Offset(0, 8) = rng_Index_SuiviOS.Offset(i, -4)
rng_SuiviOS.Offset(0, 9) = rng_Index_SuiviOS.Offset(i, -3)
rng_SuiviOS.Offset(0, 10) = rng_Index_SuiviOS.Offset(i, -2)

Set rng_SuiviOS = rng_SuiviOS.Offset(1, 0)
End If
Next i

End With

End Sub

[Invité]

Bonjour Many95870

Peut-être mieux comme ça, à tester 🤔

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
31
32
33
34
35
Sub Test()  Dim i As Integer
  Dim rng_Index_SuiviOS As Range
  Dim rng_SuiviOS As Range
  Dim LigFind As Long
 
  Set rng_Index_SuiviOS = Worksheets("Index_SuiviOS").Range("M14")
  LigFind = Worksheets("Index_SuiviOS").Columns(13).Find("*", , , , , xlPrevious).Row - 2
  If LigFind = 0 Then
    MsgBox "Problème pour trouver LigFind"
    Exit Sub
  End If
  '
  With Worksheets("SuiviOS")
    Sheets("SuiviOS").Range("A14:K65500").ClearContents
    Set rng_SuiviOS = .Range("A14")
    For i = 0 To LigFind
      If rng_Index_SuiviOS.Offset(i, 0) = 1 Then
        rng_SuiviOS.Offset(0, 0) = rng_Index_SuiviOS.Offset(i, -12)
        rng_SuiviOS.Offset(0, 1) = rng_Index_SuiviOS.Offset(i, -11)
        rng_SuiviOS.Offset(0, 2) = rng_Index_SuiviOS.Offset(i, -10)
        rng_SuiviOS.Offset(0, 3) = rng_Index_SuiviOS.Offset(i, -9)
        rng_SuiviOS.Offset(0, 4) = rng_Index_SuiviOS.Offset(i, -8)
        rng_SuiviOS.Offset(0, 5) = rng_Index_SuiviOS.Offset(i, -7)
        rng_SuiviOS.Offset(0, 6) = rng_Index_SuiviOS.Offset(i, -6)
        rng_SuiviOS.Offset(0, 7) = rng_Index_SuiviOS.Offset(i, -5)
        rng_SuiviOS.Offset(0, 8) = rng_Index_SuiviOS.Offset(i, -4)
        rng_SuiviOS.Offset(0, 9) = rng_Index_SuiviOS.Offset(i, -3)
        rng_SuiviOS.Offset(0, 10) = rng_Index_SuiviOS.Offset(i, -2)
 
 
        Set rng_SuiviOS = rng_SuiviOS.Offset(1, 0)
      End If
    Next i
  End With
End Sub

A+