Discussion :

[mimo13]

Bonjour,

je ne suis pas développeur, et j'ai eu beau consulter la FAQ et parcourir le forum, je n'arrive pas à comprendre la totalité du code des exemples proposés.

Je voudrais faire une macro qui permettrait, à chaque fois que la valeur de la cellule située dans la colonne C est 2005, de copier la plage D:O de la même ligne et de faire un collage spécial valeur sur la même plage (D:O), mais de la ligne précédente.

Je suis conscient qu'aider un "non développeur" comme moi, n'est pas la fonction première de ce forum, mais comme je dois faire cette manip manuellement pour environ 400 fichiers contenant pour certain une centaine de ligne, je suis desespéré à l'idée de ce travail harassant et quelque peu répétitif. C'est pourquoi, je cherche une ame charitable qui aurait pitié d'un pauvre type comme moi, égaré dans les méandres de la nébuleuse VisualBasic .

Voila, désolé de vous embéter

[bouley]

Salut mimo13,

Veux-tu faire ton traitement a chaque fois qu'une cellule de la colonne est renseignée ou parcourir la colonne et faire le traitement dés qu'une cellule contient 2005 ?

@+

[bouley]

Comme le "dodo" m'appelle je n'attends pas ta reponse.

Teste ceci : c'est le deuxieme cas :
Evenement Worksheet_Change de la feuille ou sont tes cellules.

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
Private Sub Worksheet_Change(ByVal Target As Range)
 
'test si la cellule qui a changé est dans la colonne C
If Target.Column <> 3 Then Exit Sub
 
'Selection de la plage D:O à coté
Set cc = Target
cc.Offset(0, 1).Resize(1, 12).Select
 
Selection.Copy
 
'selection plage D:O au dessus
cc.Offset(-1, 1).Resize(1, 12).Select
 
'Collage special
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
Application.CutCopyMode = False
End Sub

@+

[mimo13]

Wahou quelle rapidité !! Je n'espérais pas une réponse avant demain. Bon je regarde ma montre et on est déjà demain.

Merci beaucoup Bouley. Je testerai ça demain au boulot car je n'ai pas les documents chez moi.
Ceci dit, une chose m'intrigue : Je ne vois pas 2005 dans le code. Est-ce que je dois remplacer qq chose par 2005 ?

Bon le dodo m'appelle aussi !

Encore

[AlainTech]

Et voici un code qui cherche la valeur 2005 dans la colonne C:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub CopieLigne()
  Dim rRange As Range
  Dim rCell As Range
  Set rRange = Range([C1], Cells(Cells.SpecialCells(xlLastCell).Row, 3))
  For Each rCell In rRange
    If rCell = 2005 Then
      Range(rCell.Offset(0, 1), rCell.Offset(0, 12)).Copy
      rCell.Offset(-1, 1).PasteSpecial Paste:=xlValues
    End If
  Next rCell
  Application.CutCopyMode = False
End Sub

[AlainTech]

Autre syntaxe pour la ligne:

Code :

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

      Range(rCell.Offset(0, 1), rCell.Offset(0, 12)).Copy

en plus court (merci bouley):

Code :

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

      rCell.Offset(0, 1).Resize(1, 12).Copy

[bouley]

Bon jour,

OOPS, il fallait que j'aille dormir !!
Code complet :

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
Private Sub Worksheet_Change(ByVal Target As Range) 
 
'test si la cellule qui a changé est dans la colonne C 
If Target.Column <> 3 Then Exit Sub 
If Target=2005 then
   'Selection de la plage D:O à coté 
   Set cc = Target 
   cc.Offset(0, 1).Resize(1, 12).Select 
 
   Selection.Copy 
 
   'selection plage D:O au dessus 
   cc.Offset(-1, 1).Resize(1, 12).Select 
 
   'Collage special 
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,     SkipBlanks _ 
        :=False, Transpose:=False 
 
   Application.CutCopyMode = False 
end if
   End Sub

Merci Alain pour la selection
@+

[mimo13]

Vraiment je tiens à tous vous remercier pour votre aide.

Bouley, j'ai d'abord essayé ton code, mais il m'a mis un message : " Erreur d'execution 424 Objet requis " le curseur de debogage s'est positionné devant : If Target=2005 then. Du coup j'ai essayé celle d'AlainTech qui fonctionne parfaitement.

Donc un grand merci à vous 2, grace à vous, aujourd'hui la vie est belle !!!