Code tout simple fait avec l'enregistreur de macro qui fonctionne puis ne fonctionne plus

**nicdodo** · 03/04/2015, 16h33

Bonjour,

Alors voila pour me simplifiez la vie et réussir par moi même une manip qui nécessite l'utilisation d'une liste box je suis passé par l'étape recherche v puis par une boucle dans un if ce qui en soit n'est pas le plus beau je pense mais ça marche. Ça marchait du moins car si je fait appel à une boucle c'est pour copier coller or quand je change dans ma liste box ma sélection je dois effacer au préalable les données qui avaient été copier dans mon tableau puis que l'ordi mette les nouvelles.

Mon problème vient de la suppression, j'ai repris un vieux code que j'avais fait avec l'enregistreur de macro et l'ai adapté. Ca marché mais ca ne marche plus sans aucune raison apparente.

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 triersite()
 
Dim numlignevide As Integer
numlignevide = ActiveSheet.Columns(10).Find("").Row
Sheets("accueil").Activate
Range("J2:P100").Select
selection.ClearContents
 
Sheets("synthese").Activate
For i = 2 To 1200
If Sheets("synthese").Cells(i, 12) = Sheets("accueil").Cells(13, 7) And Sheets("synthese").Cells(i, 6) = Sheets("accueil").Cells(18, 7) Then
 
Sheets("accueil").Cells(numlignevide, 10).Value = Sheets("synthese").Cells(i, 6).Value
Sheets("accueil").Cells(numlignevide, 11).Value = Sheets("synthese").Cells(i, 7).Value
Sheets("accueil").Cells(numlignevide, 12).Value = Sheets("synthese").Cells(i, 8).Value
Sheets("accueil").Cells(numlignevide, 13).Value = Sheets("synthese").Cells(i, 9).Value
Sheets("accueil").Cells(numlignevide, 14).Value = Sheets("synthese").Cells(i, 10).Value
Sheets("accueil").Cells(numlignevide, 15).Value = Sheets("synthese").Cells(i, 11).Value
Sheets("accueil").Cells(numlignevide, 16).Value = Sheets("synthese").Cells(i, 12).Value
        numlignevide = numlignevide + 1
    End If
Next
Sheets("accueil").Activate
End Sub

Mon problème ce situe à "Selection.clearcontents" excel me dit "Fonction ou variable attendu" En gros je ne comprends pas j'ai donc essayé avec l'enregistreur de macro, j'ai sélectionné de J2 à P100 puis fait suppr et enregistreur m'a dit de faire comme ça. En gros ou est le problème s'il vous plait. J'imagine que c'est tout bete et je pourrai surement faire autrement pour supprimer mais en fait je pose la question car je ne comprends pas ce qui bloque or si je ne comprends pas c'est une erreur que je serais certainement amener à répéter

Cordialement

**joe.levrai** · 03/04/2015, 16h42

Bonjour,

remplace

Code :

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

1
2
3
4
 
Sheets("accueil").Activate
Range("J2:P100").Select
selection.ClearContents

par

Code :

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

1
2
 
Sheets("accueil").Range("J2:P100").ClearContents

et dis nous si c'est ok

il faut éviter les Select et travaux sur Selection.
De même, je ne suis pas sur que tes activations de feuilles soient nécessaires