Sellig
XLDnaute Junior
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
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