Discussion :

[lio62]

bonjour,
si "observations" existe sur la feuille il me met erreur 1004 la methode delete de la classe range a échoué
et s'il ne trouve pas le mot il me met depassement de capacité et il s'arrête sur la ligne
i = i + 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sheets("dotation").Activate
 
i = 1
 
'While cells(i, 1).Value <> "observations"
  While (Trim(LCase(cells(i, 1).Value)) <> "observations")
 ' While (InStr(1, (cells(i, 1).Value), "OBSERVATIONS", vbTextCompare) = 0)
    i = i + 1
Wend
Rows(i & ":" & i + 6).Delete'------->LIgne erreur

[cwain]

Bonjour,
Si tu n'as pas de cellule avec observations dedans, c'est normal qu'il y ait erreur vu qu'il va chercher dans chaque cellule jusque tout en bas du tableau (soit la ligne 65537), sauf que moi il s'arrête à la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  While (Trim(LCase(Cells(i, 1).Value)) <> "observations")

Chez moi, si il y a "observations" dans une cellule, ta macro marche bien
Peut-être qu'il y a des cellules fusionnées verticalement dans les 7 lignes que tu effaces ? Peut-être que ton "observations" est dans les 6 dernières lignes du tableau (de 65532 à 65537 ?) auquel cas il n'arrive pas à effacer des lignes qui n'existent pas ?? mais bon je doute que tu utilise les 6 dernières lignes de ton tableau

[lio62]

oui les cellules en dessous d'OBSERVATIONS sont fusionnées

[cwain]

C'est fusionné comment ? J'ai fait quelques tests, mais ça marche chez moi

[lio62]

avec ce code il me met une erreur 6 depassement de capacité lorsqu'il ne trouve pas le mot mais le mot observation n'y sera pas forcément (j'aurais peut etre du commencer par là désolé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

While (InStr(1, (cells(i, 1).Value), "OBSERVATIONS", vbTextCompare) = 0)

Mes cellules sont fusionnées comme celà

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
Sheets("dotation").Activate
'[a65536].End(xlUp).Select
 NbLigneTab1 = Range("A65536").End(xlUp).Row
NbLigneTab2 = Range("f65536").End(xlUp).Row
If NbLigneTab1 <= NbLigneTab2 Then
    Range("a" & NbLigneTab2 + 1).Value = "OBSERVATIONS"
ElseIf NbLigneTab1 >= NbLigneTab2 Then
    Range("A" & NbLigneTab1 + 1).Value = "OBSERVATIONS"
End If
 
 [a65536].End(xlUp).Select
 
   ActiveCell.EntireRow.Offset(2, 0).Range("a1:K3").Select
With Selection
    .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        ShrinkToFit = False
        .MergeCells = True
    End With
     ActiveCell.Offset(0, 0).Value = TextBox1
 
    Sheets("dotation").Activate

Merci Cwain a+

[cwain]

Bon en fait pour l'erreur 1004, j'ai réussi à la reproduire si tu as des cellules protégées parmi les lignes que tu veux effacer.
Pour les cellules fusionnées, chez moi ça pose pas de problème pourtant ya sûrement un p'tit quelque chose de ce côté là

Pour le dépassement de capacité, peut-être tu simplifierais le code en nommant ta cellule "observations" pour pouvoir y faire appel par la suite ?