Discussion :

[BenoitL77]

Bonjour à tous,

J'ai ce petit code :

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
Sub intégration_prix()
Dim prixcpt, lignecpt As Integer
prixcpt = Range("e3").Value
lignecpt = Range("d3").Value
 
Rows("7:12").Select
    Selection.Copy
    Sheets("Nomenclature").Select
    Rows(lignecpt + 1).Select
    Selection.Insert Shift:=xlDown
    Selection.EntireRow.Hidden = True
 
Cells(lignecpt, 6) = prixcpt
 
End Sub

J'ai fait la partie copie/insertion de ligne via l'enregistreur de macro. Juste modifié pour définir la ligne d'insertion avec ma variable 'lignecpt'.
En théorie, je copie 6 lignes dans ma feuille active, je les insère et je les masque toutes. Ce sont les actions que j'ai faites lors de l'enregistrement et qui ont données le résultat escompté.
Mais quand je lance la macro...seule la 1ère des 6 lignes insérées est masquée !

Si je refait la manip manuellement, ça marche très bien ; les 6 lignes sont masquées.

Je comprends que seule la 1ère ligne reste sélectionnée au moment où la macro masque la sélection. Mais pourquoi?
That's the question...
Merci de votre aide
Benoit

[révèr]

Bonjour Benoit,

Evite les .Select autant que possible, cela engendre souvent des erreurs. J'en ai fait les frais au début de mon projet.

Voici la méthode Range.Copy, base-toi sur celle-ci pour connaître la syntaxe. Tu n'auras plus besoin des .Select logiquement
https://docs.microsoft.com/fr-fr/off...cel.range.copy

[MarcelG]

Bonjour Benoît, Bonjour rêver,

Sur mon poste de travail, les objets restent les mêmes. Heureusement.

Quoi qu'il en soit, ce type de code est à proscrure
Je confirme la emarque de rêver.
Qui plus est, j'ajouterais
- La variable prixcpt est ici déclarée, à tort, en Variant
- Il convient de bien attacher les objets Range à leur feuille parent, en utilisant, pour ce faire, le bloc With

Plus généralement, l'enregistreur peut être utile à 2 conditions
1 - bien intégrer les méthodes et les propriétés qu'il reporte
2 - l'épurer autant que possible en
2 a - supprimant les Select de tout poil et en rattachant les objets
2 b - conservant seulement les lignes qui ne sont pas celles par défaut. Pour en prendre conscience, il suffit d'utiliser l'enregistreur pour une mise en page puis constater le code reporté.

[Menhir]

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
Sub intégration_prix()
Dim prixcpt As Long, lignecpt As Long
Dim WS_Source As Worksheet, WS_Dest As Worksheet
 
prixcpt = Range("E3").Value
lignecpt = Range("D3").Value
 
Set WS_Source = ActiveSheet
Set WS_Dest = Worksheets("Nomenclature")
 
WS_Source.Rows("7:12").Copy
WS_Dest.Rows(lignecpt + 1).Insert Shift:=xlDown
WS_Dest.Cells(lignecpt + 1, 1).Resize(6, 1).EntireRow.Hidden = True
WS_Dest.Cells(lignecpt, 6) = prixcpt
 
End Sub

[révèr]

Maintenant que j'y pense... Pourquoi stockes-tu un numéro de ligne dans une cellule ?

[BenoitL77]

Merci à vous 3 pour vos retours.
Pb résolu et je serais encore un peu moins débutant en VBA ce soir !

Je stocke un N° de ligne dans une cellule car une précédente macro vient me la ranger là. Dans ma feuille "nomenclature", j'ai toute une liste de composants dont je doit calculer le prix.
Pour l'instant, j'ébauche un principe de fonctionnement pour présenter aux utilisateurs. Je ferait sans doute différent ensuite.

Bonne fin de journée
Benoit

[révèr]

Ce numéro de ligne en question, correspond-il au numéro de la ligne sur le tableur ? Si tel est le cas, tu n'en as absolument pas besoin

Autrement, nous ne parlons pas des mêmes "lignes"

[BenoitL77]

oui, il s'agit du n° de ligne du tableur.

Mon process :
dans l'onglet "nomenclature", je sélectionne un composant (donc une ligne), je lance une macro qui, entre autre, m'emmène dans un autre onglet.
dans celui ci, je fait de calculs pour définir le prix
je lance la macro qui est le sujet de cette discussion

Pour savoir où insérer, dans "nomenclature", les lignes copier , j'ai besoin de connaitre le N° de ligne où j'étais au départ.
J'ai trouver cette astuce de copier l'info dans une cellule.

Mais sans doute y' a t'il mieux à faire? Peut être une variable qui soit utilisable dans 2 macro/sub/module différentes ?

Je suis preneur de quelques pistes, merci

[révèr]

Bonjour Benoit,

"Pour connaître le numéro de ligne où j'étais au départ" - Par rapport à ton tableau où tu colles les données ?

Si tel est le cas, je te conseillerai de nommer ton tableau de collage :

"t_paste" - pour l'exemple

et ton tableau de copie :

"t_copy"

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
 
Private Sub Collage()
Dim WbT As ThisWorkbook
Dim WbO As Worksheet
'WbO -> Feuille de Collage
Dim WbC As Worksheet
'WbC -> Feuille de copie
Dim t1 As ListObject, t2 As ListObject
Dim lrDest As ListRow
'Ligne de Destination
Dim lrSource As ListRow
'Ligne d'Origine
Dim ChoixLC As Integer
Set WbO = WbT.Sheets(1)
Set WbC = WbT.Sheets(2)
'Tu es libre de choisir la feuille que tu veux je te rassure ^^
Set t1 = WbO.ListObjects("t_paste")
Set t2 = WbO.ListObjects("t_copy")
 
 
 
lrSource = t2.DataBodyRange.Row(ChoixLC)
'ChoixLC -> Choix Ligne Copie
Set lrDest = t1.DataBodyRange.ListRow.Add 
 
lrSource.Range.Copy lrDest.Range
End Sub

Si tu veux plus d'explications, je peux t'en fournir.

Sinon je te passe le lien d'où j'ai tiré les informations pour copier/coller d'un TS à un autre :
Copier/Coller d'un TS à un autre

Et pour la méthode Range.Copy
https://docs.microsoft.com/fr-fr/off...cel.range.copy