Discussion :

[badr.]

Bonjour à vous tous,

J'aurai besoin de votre aide concernant une macro:

L'idée est de pouvoir lorsqu'une cellule de la colonne E comprend un caractère "x" , copier la cellule correspondant à la colonne B, C et D dans une autre feuille.

et boucler dessus après.

Voilà le bout de langage

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub cop_col()
On Error Resume Next
 
Dim l As Long
Dim derl As Long
 
derl = Worksheets("BILAN").Range("C" & Rows.Count).End(xlUp).Row
 
For l = 10 To derl
If Cells(l, 5) = "*x*" Then
Sheets("BILAN").Range("B" & ":D").Copy Sheets("commentaires pointage liasse").Range("B" & ":D").End(xlUp)(2)
End If
Next l
End Sub

En fait le problème c'est que ça ne fonctionne pas , ça me lance aucune erreur mais ça ne fonctionne pas

[Marc-L]

Effectivement avec la ligne n°10 cela ne peut marcher !

Voir du côté de l'opérateur Like …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[rjamin]

Bonjour,
Je suppose que s'il y a un copier il devrait y avoir un coller or je n'en vois pas. De plus boucler dessus ça veut dire quoi ?

[Marc-L]

Bonjour Robert,

lorsque la destination est précisée en argument de la méthode de copie, c'est donc un Copier / Coller direct !

Sinon pour ne pas boucler, utiliser un filtre comme ici …

[badr.]

Rebonjour à tous,

En effet Rjamin le coller est compris dans le bout de langage avec le offset (2)

Toute la ligne :

Code :

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

Sheets("BILAN").Range("B" & ":D").Copy Sheets("commentaires pointage liasse").Range("B" & ":D").End(xlUp)(2)

et remplacer par

Code :

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

1
2
3
4
Sheets("BILAN").Range("B" & ":D").Copy 
Sheets("commentaires pointage liasse").Activate
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select
Sheets("commentaires pointage liasse").Range("B" & ":D").Paste

je joints un test avec langage associé au bouton Executer, feuil "Commentaires pointage"

Test.zip
Merci à vous tous.

[casefayere]

Bonjour à tou(te)s,

Peut-être ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub cop_col()
 
Dim derl As Range, cel As Range
With Worksheets("BILAN")
  Set derl = .Range("C" & .Rows.Count).End(xlUp)(1, 3)
  For Each cel In .Range("E10", derl)
    If UCase(cel) Like "*X*" Then
      .Range("B" & cel.Row, "D" & cel.Row).Copy Sheets("commentaires pointage liasse").Range("B" & Sheets("commentaires pointage liasse").Rows.Count).End(xlUp)(2, 1)
    End If
  Next cel
End With
End Sub

[badr.]

Merci casefayere pour ta disponibilité merci à vous tous et à Rjamin pour ton aide.

ça fonctionne très bien. j'ai une question par contre à quoi correspond le (1,3) et le (2,1) est ce pour dire décaler la ligne (sorte de offset)? et le point avant Range dans :

Code :

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

1
2
3
derl = .Range("C" & .Rows.Count).End(xlUp)(1, 3)
 
.Range("B" & cel.Row, "D" & cel.Row).Copy Sheets("commentaires pointage liasse").Range("B" & Sheets("commentaires pointage liasse").Rows.Count).End(xlUp)(2, 1)

et c'est quoi la différence entre UCase et Select Case?

Merci

[badr.]

Comment indiquer en vba quand il copie et colle sur la feuil "commentaire pointage" s'il trouve une cellule déjà rempli sur cette feuil il ne colle po dessus mais il insère juste avant.

Exemple de mon soucis ci-joint.

Je comprend po pourquoi lorsque j'ai modifié le langage pour insérer d'autre paramètre ça ne fonctionne plus.

Test.zip

[casefayere]

Code :

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

1
2
3
set derl = .Range("C" & .Rows.Count).End(xlUp)(1, 3)'donc dernière cellule en C décalée en E
'essayes
MsgBox derl.Address

=

Code :

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

1
2
3
set derl = .Range("C" & .Rows.Count).End(xlUp).offset(0, 2)
'essayes
MsgBox derl.Address

voir documentation à ce sujet sur les décalages

[casefayere]

Avant de répondre à tes questions, je t'en pose une : comprends-tu ce que tu fais ?

En effet, tu as recopié mon code sans corriger quoique que ce soit or les noms de feuille ne correspondent pas et je ne suis pas sur que tu colles le résultat au bon endroit (ce n'est pas à moi de le deviner)

Ta feuilles est nommée "commentaires pointage " avec de plus un espace en bout, nommes-la tout simplement "commentaires pointage" et corriges dans le code

Code :

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

...Sheets("commentaires pointage"...)

plutot que ce que tu indiques au départ

Code :

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

...Sheets("commentaires pointage liasse")...

Respectes ce que je viens d'écrire ci-dessus pour cette partie

Code :

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

1
2
3
4
5
6
  Set derl = .Range("F" & .Rows.Count).End(xlUp)(1, 3)
  For Each cel In .Range("H10", derl)
    If UCase(cel) Like "*X*" Then
      .Range("B" & cel.Row, "F" & cel.Row, "G" & cel.Row).Copy Sheets("commentaires pointage ").Range("B" & Sheets("commentaires pointage ").Rows.Count).End(xlUp)(2, 1)
    End If
  Next cel

donc à corriger

Si tu as des difficultés, dis vraiment où coller les lignes sélectionnées dans "BILAN"

[badr.]

Merci de tes conseils, c'était juste une omission de ma part!

Cependant comment faire pour copier et coller les cellules qui remplissent mes critères sur la colonne "H" aussi, vu que lorsque j'insère le jet de code avec les modifications nécessaires ça ne s'applique que pour la colonne "E" et non les 2 ( E et H).


ci-joint le fichier.

Test.zip

[casefayere]

Je viens de regarder ton dernier fichier qui est encore différent (Feuille "Commentaires.."), je vais voir ce que je peux faire et pour le peu que je comprends, patience !

Déjà, arrêtes d'introduire l'instruction "On Error Resume Next" dans ton code, il ne doit pas y avoir d'erreur ou sinon cherches à la corriger, essayes ce code fait sur l'exemple de ton dernier fichier

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
Sub Mémo_liasse()
 
Dim derl As Range, cel As Range, DerCom As Range
Dim WsBilan As Worksheet, WsCom As Worksheet
Set WsBilan = Sheets("BILAN")
Set WsCom = Sheets("commentaires pointage")
With WsCom
  Set DerCom = .Range("B" & .Rows.Count).End(xlUp)(2, 7)
  .Range("B5", DerCom).ClearContents
End With
With WsBilan
  Set derl = .Range("C" & .Rows.Count).End(xlUp)(1, 3)
  For Each cel In .Range("E10", derl)
    If UCase(cel) Like "*X*" Then
      .Range("B" & cel.Row, "D" & cel.Row).Copy WsCom.Range("B" & WsCom.Rows.Count).End(xlUp)(2, 1)
    End If
  Next cel
 
  Set derl = .Range("F" & .Rows.Count).End(xlUp)(1, 3)
  Set DerCom = WsCom.Range("E5")
  For Each cel In .Range("H10", derl)
    If UCase(cel) Like "*X*" Then
      .Range("B" & cel.Row).Copy DerCom
      .Range("F" & cel.Row, "G" & cel.Row).Copy DerCom(1, 2)
      MsgBox DerCom.Address
      Set DerCom = WsCom.Range("E" & WsCom.Rows.Count).End(xlUp)(2, 1)
    End If
  Next cel
End With
End Sub

[casefayere]

J'ai vu que tu as cliqué sur sans plus d'indication sur la dernière proposition, je ne pense pas que ce soit l'esprit du forum !

[badr.]

Je vous remercie tous pour votre aide, DSL casefayere, j'étais en déplacement j'ai pas vu ta réponse.
En tout cas ça marche super bien.