Discussion :

[sanach]

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 :

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
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

[sanach]

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 :

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
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

[fring]

Bonjour,

Code :

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

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