insertion de cellules vides

Version imprimable

bonjour
je compte sur votre aide pour pouvoir résoudre mon problème.
je cherche une fonction qui me permettera d'insérer un nobre de cellules vièrges sur un nombre variable de lignes.
Code:

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 Dim trouver As Boolean trouver= false For i = m To 1 Step -1 VALEURA = Range("C" & i).Value VALEURC = Range("A" & i).Value VALEURD = Range("E" & i).Value VALEURB = Range("F" & i).Value If VALEURA <> VALEURB Or VALEURC <> VALEURD Then For j = i To m VALEURB1 = Range("F" & j).Value VALEURD1 = Range("E" & j).Value If VALEURA = VALEURB1 Or VALEURC = VALEURD1 Then For k = i To j + 1 ' inserer 3 cellules vides de la colonne A jusqu' à la colonne c Next k trouver= true (trouver est une valeur booléenne) End If if trouver=false insérer des cellules vides à partir de la colonne D et de la ligne i end if Next j Next i
les instruction dont j'en ai besoin sont en rouge dans le code
Merci d'avance

voilà ce code me permet d'insérer toute une ligne vide, alors que moi je ne veux insérer que trois cellules dans la ligne

Code:

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
36
37
Dim i%
 For i = 2 To m
VALEURA = Range("C" & i).Value
VALEURC = Range("A" & i).Value
VALEURD = Range("E" & i).Value
MsgBox i
VALEURB = Range("F" & i).Value
If VALEURA <> VALEURB Or VALEURC <> VALEURD Then
For j = i + 1 To m
VALEURB1 = Range("F" & j).Value
VALEURD1 = Range("E" & j).Value
MsgBox j
If VALEURA = VALEURB1 And VALEURC = VALEURD1 Then
For k = i To j + 1
 ActiveSheet.UsedRange.Rows(k).Insert Shift:=xlDown


 
 Next k
  trouver = True
 Else
 
 MsgBox "valeurs non égales"

End If
If trouver = False Then
MsgBox "pas de valeurs égales"
End If


Next j

End If


Next i

Bonjour,

Code:

1
2
3
For k = i To j + 1
    Range("A" & k & ":C" & k).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next k