XL 2019 Sélection zone avec la souris et copier puis Sélection zone avec la souris et coller

[Sellig]

Bonjour,

J’ai enfin trouver une macro que je cherchais depuis longtemps, il s’agit de la macro suivante trouvée sur votre site :

Sub SiVraimentMacroIlFautAlorsMacroVoila()

Dim p As Range, q As Range, a$, b$

On Error Resume Next

Set p = Application.InputBox("Sélectionnez la plage à copier!", "Sélection de cellules", Type:=8)

Set q = Application.InputBox("Sélectionnez la plage de recopie !", "Sélection de cellules", Type:=8)

If Not p Is Nothing And Not q Is Nothing Then p.Copy q(1, 1)

End Sub



Seulement, j’aimerais coller que les formules pas le format.

Pouvez-vous m’aider s’il vous plaît ?

Merci d’avance

 

[vgendron]

Bonjour
il faut utiliser le pastespecial après le copy avec les options qui vont bien==> tu devrais les trouver dans l'aide

p.copy
q.pastespecial

ou plus simple...(sans garantie de fonctionnement, car pas de fichier... pas de test...)
q=p.value

 

[Sellig]

Merci pour ta réponse

J’ai essayé mais visiblement ça ne fonctionne pas.

Je préfère te joindre mon fichier, je ne suis pas assez calé.

Merci

 

[Staple1600]

Bonjour le fil, @Sellig, @vgendron, @crocro

Je me disais bien que cette macro que disait quelque chose

Sélection d'une zone avec la souris dans cette macro

Bonjours à tous Cette macro fonctionne Mais je dois rentrer manuellement les zones dans les 2 imputbox Je voudrais le faire avec la souris J'ai bien pensé à utiliser cette instruction Set s = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8) Mais je maitrise...

excel-downloads.com

EDITION: C'est plus celle de @mapomme à la relecture du fil d'origine
On a pas idée aussi donner des noms chelou à ses macros (ca c'est ma pomme)
et de ne pas modifier ces mêmes noms zarbi (ca c'est @mapomme )

 

[crocrocro]

bonjour à tous

If Not p Is Nothing And Not q Is Nothing Then
    p.Copy
   q.PasteSpecial Paste:=xlPasteFormulas
End If

 

[Sellig]

bonjour à tous

If Not p Is Nothing And Not q Is Nothing Then
    p.Copy
   q.PasteSpecial Paste:=xlPasteFormulas
End If

Génial, merci mille fois
Bonne fin de journée

JE DOIS CLIQUER SUR QUOI POUR CLOTURER ?

 

[vgendron]

Génial, merci mille fois
Bonne fin de journée

JE DOIS CLIQUER SUR QUOI POUR CLOTURER ?

Rien,tu peux éventuellement juste modifier le titre de ton message en ajoutant [Résolu]
mais ce n'est pas une obligation
par contre tu peux selectionner le message comme solution

 

[crocrocro]

Rien,tu peux éventuellement juste modifier le titre de ton message en ajoutant [Résolu]

Le fait d'indiquer un des posts en solution positionne automatiquement l’icône Résolu sur le message

 

[Sellig]

Le fait d'indiquer un des posts en solution positionne automatiquement l’icône Résolu sur le message Regarde la pièce jointe 1201664

 

[Sellig]

Rien,tu peux éventuellement juste modifier le titre de ton message en ajoutant [Résolu]
mais ce n'est pas une obligation
par contre tu peux selectionner le message comme solution

Ok je venais juste de trouver ce fameux bouton.

Puisque c'est réouvert, j'en profite pour une dernière petite question facultative :

Sur ma macro, serait-il possible d'ajouter qq chose pour que si j'appuye sur ''Annuler'' il ne se passe rien ?