Discussion :

[ptitbubu]

Bonjour à tous,

Suite à ma derniére questions, (Merci pour vos réponses si rapides) j'ai un tout petit peu progresse en language VBA .
Mon problémes est le suivant :
J'ai actuellement 2 macros qui fonctionnent trés bien l'une puis l'autre - "Conclusion" et "Conclusion 2". Les données copier par "Conlusion 2" se collant juste aprés dans celle copier par "Conclusion".

Code de "Conclusion"

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
 
Sub Conclusion()
Dim i As Integer
 Dim j As Integer
 Dim k As Integer
 k = 2
 i = 1
 While Sheets("EVRC - Semi-quantitatif").Cells(22, i) <> Empty
 i = i + 1
 Wend
 For j = 2 To i
 If Sheets("EVRC - Semi-quantitatif").Cells(22, j) = "Niveau 0" Or Sheets("EVRC - Semi-quantitatif").Cells(22, j) = "Niveau 1" Then
 Sheets("EVRC - Semi-quantitatif").Activate
 Sheets("EVRC - Semi-quantitatif").Range(Cells(4, j), Cells(22, j)).Copy
 Sheets("Conclusion").Activate
 Sheets("Conclusion").Range(Cells(4, k), Cells(22, k)).PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
  k = k + 1
   End If
  Next j
End Sub

Code de "Conclusion 2

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
 
Sub Conclusion2()
Dim l As Integer
 Dim m As Integer
 Dim n As Integer
 k = 2
 n = 8
 l = 1
 While Sheets("EVRC - Quantitatif").Cells(22, l) <> Empty
 l = l + 1
 Wend
 For m = 2 To l
 If Sheets("EVRC - Quantitatif").Cells(22, m) = "Niveau 2" Or Sheets("EVRC - Quantitatif").Cells(22, m) = "Niveau 3" Then
 Sheets("EVRC - Quantitatif").Activate
 Sheets("EVRC - Quantitatif").Range(Cells(4, m), Cells(28, m)).Copy
 Sheets("Conclusion").Activate
 Sheets("Conclusion").Range(Cells(4, n), Cells(28, n)).PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
  n = n + 1
   End If
  Next m
End Sub

"

Je souhaiterais que les 2 opérations s'exécutent l'une aprés l'autre en une seule macro.
Dans mon fichier test "Conclusions" copie 6 colonnes, c'est poiurquoi dans "Conclusion 2" n=8.

Je suppose que la soution est simple du genre n= k+1, mais quand jeteste rien ne se passe je dosi oublier quelques détails aui ont leur imortance.

Merci pour votre aide.

Ptitbubu

[EngueEngue]

Hello,

Code :

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

1
2
3
4
5
 
Sub Conclusion3()
Call Conclusion
Call Conclusion2
End sub

[ptitbubu]

Merci,

Mais mon n=8 dépend de dunombre de donnée a analysée.

[EngueEngue]

Très clair comme réponse... Dépend de quelle façon ?
Il te suffira de faire dépéndre ton n de cette dépendance dans le code.

[ptitbubu]

ALéatoire en fait je ne peux pas le déterminer à l'avance.
La macro "Conclusion" va copier x colonnes deB à x , et la macro "Conclusion 2" va copier y colonnes de x+1 à y.
D'ou mon hypothése que dans "Conclusion "2 n = k+1 (k variable de "Conclusion 1".

[EngueEngue]

Soit tu fais qqchose de propre. Soit tu bidouilles. Pour bidouiller

A la fin de conclusion tu copies qqpart le nombre X
Au debut de conclusion tu vas chercher ce X et tu fais X+1

Code :

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

1
2
3
4
5
6
 
Sub conclusion3()
Call conclusion
Call conclusion2
'Tu effaces la case ou tu as mis le X
End sub

[mercatog]

Personnellement je ferai comme ceci

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
Sub Lancer()
 
Call Conclusion(0)
Call Conclusion(2)
End Sub
 
Private Sub Conclusion(ByVal Indice As Byte)
Dim LastCol As Integer, j As Integer
Dim k As Integer
 
With Worksheets("EVRC - Semi-quantitatif")
    LastCol = .Cells(22, .Columns.Count).End(xlToLeft).Column
    For j = 2 To LastCol
        If .Cells(22, j) = "Niveau " & Indice Or .Cells(22, j) = "Niveau " & Indice + 1 Then
            .Range(.Cells(4, j), .Cells(22, j)).Copy
            With Worksheets("Conclusion")
                k = .Cells(4, .Columns.Count).End(xlToLeft).Column + 1
                .Range(.Cells(4, k), .Cells(22, k)).PasteSpecial Paste:=xlPasteAllUsingSourceTheme
                .Range(.Cells(4, k), .Cells(22, k)).PasteSpecial Paste:=xlPasteValues
            End With
        End If
    Next j
End With
End Sub

[EngueEngue]

C'est la technique propre. Comme d'habitude Mercator, impressionnant de bonne volonté et de générosité!