Discussion :

[jpma75]

Bonjour,

Je souhaite copier une plage d'un classeur "A" pour la coller sur un classeur "B" (sélection 1ère cellule en haut à gauche + clic droit "collage spécial" valeurs).
Toutes les options de collage sont grisées, sans doute à cause du mode "Manual" (du classeur "B") :

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Not Application.Intersect(Target, Range("A1:Z100")) Is Nothing Then  
        Application.Calculation = xlCalculationManual
        (...)

A toutes fins utiles, je précise que le mode "Automatic" est rétabli par l'utilisateur dès lors qu'il clique sur une plage différente de ("A1:Z100")

Y a-t-il un moyen de retrouver ces options de collage tout en conservant le mode "Manual" ?

Merci d'avance pour votre aide,
Cdt

[Fab_de_chez_PERFORM]

Bonjour
le code classique suivant ne fonctionne pas ?

Code :

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

1
2
3
4
5
6
    Windows("Classeur1").Activate
    Sheets("Feuil1").Range("A1:Z100").Copy
    Windows("Classeur2").Activate
    Sheets("Feuil1").Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False

[jpma75]

Bonjour,

Merci pour cette proposition.

Je préfère ne pas faire de lien (via macro) avec le classeur "A" ; je n'ai pas la maîtrise du contenu de ce classeur dont les plages de référence peuvent être modifiées par son concepteur.
Par ailleurs, le nom du classeur est changeant et quid du nom de l'onglet où se trouvent les données à importer ?!.

Je pensais qu'une solution à ce "problème" était simple.

Cordialement,

[Fab_de_chez_PERFORM]

Re
je ne visualise pas trop votre manipulation du coup ma réponse est peut être hors sujet

Est ce que depuis le classeur B on pourrait lui demander d'aller récupérer les données au lieu de les copier de A pour les coller en B ?
Si tel est le cas, on pourrait envisager de mettre ceci sur le classeur B

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim Mon_Classeur As String
Dim Ma_Feuille As String
 
Mon_Classeur = InputBox("Nom du classeur source ?", "Renseignement requis n°1")
Ma_Feuille = InputBox("Nom de la feuille du classeur source ?", "Renseignement requis n°2")
 
Range("A1:Z100").Value = Workbooks(Mon_Classeur).Sheets(Ma_Feuille).Range("A1:Z100").Value
End Sub

Sinon encore plus simple pour éviter la saisie du classeur et de la feuille
pourquoi ne pas mettre juste ca en B

Code :

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

1
2
3
4
5
Sub Test_2()
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

En faisant cette 2e option, il suffirait d'aller ouvrir le classeur 1 et copier la sélection, puis d'aller en B et lancer la macro "Test_2"

[jpma75]

Re,

Merci pour la 2nd solution qui demeure la plus simple pour l'utilisateur.

J'ignore si ce dernier :
1) saisira les données une par une dans le classeur "B",
2) importera la plage de données depuis son propre classeur.

Dans tous les cas, il devrait commencer par cliquer sur A1 (du classeur "B").
Un message lui demande (s'il a spécifiquement cliqué sur "A1"), s'il veut importer la plage de saisies de son classeur.
Si oui, on lance la procédure que vous m'avez proposée après un msgbox d'instructions.
Sinon, la plage du classeur "B" passe en calcul manuel (le gain de temps est notoire dans la cas de saisies individuelles).

Je viens de faire un test : tout semble bien fonctionner.

Merci pour l'idée,
Cdt

[Philippe Tulliez]

Bonjour,

Toutes les options de collage sont grisées, sans doute à cause du mode "Manual" (du classeur "B")

Chez moi, malgré le calcul mit en mode manuel, les commandes de collage ne sont pas grisées et sauf erreur de ma part, le mode choisi dans les options de calcul est appliqué à tous les classeurs ouverts.