Discussion :

[tonyfrost]

Bonjour

J'ai deux problèmes et j ai besoin de votre aide car je débute depuis peu...

1) j'aimerai que dans une certaine plage de cellules lorsque ma macro copie les cellules seul les cellules ayant "quelque-chose" dedans soit collé (texte et/ou nombres)

2) Et si possible que la macro se déclenche (ou a que dans le code la macro colle) uniquement si la plage (k6:O36) à été modifier par l'utilisateur (si c'est pas possible ce n'est pas grave )

voici ma macro :

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 fermeture()
 
'
' fermeture Macro
 
'Macro lancé à la fermeture du fichier “tableau de bord”
 
    Workbooks.Open Filename:="\Dossier1\Dossier2\ TableauSuivi.xlsx"
    Windows("Tableau de bord.xlsm").Activate
    Range("K6:O36").Select
    Selection.Copy
    Windows("TableauSuivi.xlsx").Activate
    Rows("6:6").Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    Windows("TableauSuivi.xlsx").Activate
    Application.DisplayAlerts = False
    ActiveWorkbook.Save
    ActiveWindow.Close False
    Windows("Tableau de bord.xlsm").Activate
    Range("A1").Select
 
End Sub

Voila, c'est la seconde fois que je réclame votre aide, j'espère ne pas en abusé. J'ai recherché un peu sur le net mais je n'ai rien trouvé de concluant...

Merci d'avance^^

Bien à vous,

Tonufrost

(PS : j'ai bien pris connaissance de l'avertissement concernant le bouton "résolu" en bas de page et tacherai de l'utilisé pour les prochaines fois)

[Marc-L]

Bonjour.

1) Voir dans l'aide VBA intégrée du côté de la méthode Range.SpecialCells associée à la méthode Range.Copy.


2) Dans le module de la feuille de calculs concernée, en haut de la fenêtre de code en place de (Général)
sélectionner Worksheet puis à sa droite en place de SelectionChange sélectionner l'évènement Change.

L'objet Target retournant la plage des cellules modifiées, utiliser la méthode Intersect pour contrôler la correspondance …

__________________________________________________________________________________________

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

[tonyfrost]

Bonjour Marc

Merci d'avoir répondu mais je n'arrive pas a faire marcher la macro...
Voila ce que j'ai pondu avec mes faibles skills :

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 fermeture()
'
' fermeture Macro
'
 
'
    Workbooks.Open Filename:="\\Dossier\Dossier2\TableauSuivi.xlsx"
    Windows("Tableau de bord.xlsm").Activate
    Range("K6:O36").SpecialCells(xlCellTypeVisible).Select
    Range.SpecialCells(xlCellTypeVisible).Copy
    Windows("TableauSuivi.xlsx").Activate
    Rows("6:6").Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    Windows("TableauSuivi.xlsx").Activate
    Application.DisplayAlerts = False
    ActiveWorkbook.Save
    ActiveWindow.Close False
    Windows("Tableau de bord.xlsm").Activate
    Range("A1").Select
 
End Sub

Ensuite pour ma seconde question, j ai fais cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim Plage As Range
Set Plage = Range("K6:O36")
 
 
If Application.Intersect(Target, Plage) Is Nothing Then
 
End If
 
 
End Sub

Cependant je n ai pas pu tester la macro comme la première ne fonctionne pas...

[casefayere]

Bonsoir,
Pour ton problème 1, plutôt que

Code :

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

1
2
3
    Windows("Tableau de bord.xlsm").Activate
    Range("K6:O36").SpecialCells(xlCellTypeFormulas).Select
    Range.SpecialCells(xlCellTypeVisible).Copy

je pense que tu devrais passer par ceci (s'il il n'y a pas de formule)

Code :

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

    Workbook("Tableau de bord.xlsm").Range("K6:O36").SpecialCells(xlCellTypeConstants).Copy

en évitant les "Select", mais dans ton code, je ne vois pas où coller, tu ne le dis pas

[tonyfrost]

En réalité je ne colle pas, j'insert les lignes pour que le second tableau s'alimente au fur et à mesure :

Code :

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

1
2
3
4
Windows("TableauSuivi.xlsx").Activate
    Rows("6:6").Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False