Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

Méthode Copier Coller VBA avec impoutbox

 

Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

Méthode Copier Coller VBA avec impoutbox

RÉSOLU
Prévenir les modérateurs en cas d'abus 
micropat
micropat
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 21/08/2019 à 10:27:34  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Faire un copier-coller en VBA
J’ai une macro qui fonctionne seulement j’aimerais pouvoir la contrôler d’une autre façon.
Afin de ne plus dépendre des cellules fixe, Je voudrais incorporer 2 impout box. La 1ere pour sélectionner une plage variable, puis copier les valeurs puis une seconde impout box s’ouvre pour me demander ou je désire coller mes valeurs (soit dans la même feuille ou dans une autre feuille en choisissant la cellule de départ). Et coller ces valeurs sous cette forme = PasteSpecial xlPasteValuesAndNumberFormats
Si la feuille n’existe pas : Voulez-vous créer une nouvelle feuille ? (MSGBOX oui non annuler). j'ai cherché longuement en vain.
Par avance merci pour votre aide.

willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 21/08/2019 à 11:38:19  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour,
te propose cette macro à tester
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Sub copier_coller()
  2. 'fait par willy
  3. 'Selection Plage Avec Souris
  4.  
  5. Dim plage, plage2 As Range
  6. Dim sh As String
  7.  
  8. sh = ActiveSheet.Name
  9. k=0
  10. On Error GoTo fin
  11. Set plage1 = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
  12. rep = MsgBox("Voulez-vous copier dans  cette feuille?", vbYesNo)
  13.  
  14. If rep <> vbYes Then
  15. Sheets.Add After:=Sheets(Sheets.Count): k = 1
  16. End If
  17. If k = 0 Then
  18.  
  19. Set plage2 = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
  20.  
  21. Sheets(sh).Range(plage1.Address).Copy
  22. Sheets(sh).Range(plage2.Address).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
  23.        xlNone, SkipBlanks:=False, Transpose:=False
  24. Application.CutCopyMode = False
  25.  
  26. Else
  27. Set plage2 = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
  28. Sheets(sh).Range(plage1.Address).Copy
  29.  
  30. ActiveSheet.Range(plage2.Address).Select
  31. Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
  32.        xlNone, SkipBlanks:=False, Transpose:=False
  33. Application.CutCopyMode = False
  34. End If
  35.  
  36.  
  37. fin:
  38. End Sub


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
micropat
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 21/08/2019 à 12:06:21  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour Willy et merci pour ta participation. On y est presque Pour la réponse VB yes c'est ok cela fonctionne.
Pour la réponse VB No je veux avoir de choix de choisir d’ajouter une nouvelle feuille (oui / non ) et de coller les valeurs dans la cellule de mon choix, ou de coller les valeurs dans l'une des feuilles existantes en cliquant sur l'onglet de la feuille et la cellule de mon choix.

micropat
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 21/08/2019 à 13:02:53  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Re : Oui si la réponse est différente de oui alors tu ajoute une feuille.
hors je veux avoir le choix de copier les infos dans une des feuilles existante ex: feuille 2 ou feuille 3 ce qui ne marche pas. ou d'ajouter une nouvelle feuille.

willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 21/08/2019 à 14:16:58  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
essaie ceci
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Sub copier_coller()
  2. 'fait par willy
  3. 'Selection Plage Avec Souris
  4.  
  5. Dim plage, plage2 As Range
  6. Dim sh, sh1 As String
  7.  
  8. sh = ActiveSheet.Name
  9.  
  10. On Error GoTo fin
  11.  
  12. Set plage1 = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
  13.  
  14. rep = MsgBox("Voulez-vous copier dans cette feuille?", vbYesNo)
  15.  
  16. If rep = vbYes Then
  17.  Set plage2 = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
  18.  
  19.  Sheets(sh).Range(plage1.Address).Copy
  20.  Sheets(sh).Range(plage2.Address).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
  21.        xlNone, SkipBlanks:=False, Transpose:=False
  22.  Application.CutCopyMode = False
  23.  
  24.  
  25. Else
  26.    rep = MsgBox("Voulez-vous copier dans une nouvelle feuille?", vbYesNo)
  27.  
  28.    If rep = vbYes Then
  29.    Sheets.Add After:=Sheets(Sheets.Count)
  30.    Set plage2 = Application.InputBox("Sélectionnez la feuille et la plage !", "Sélection de cellules", Type:=8)
  31.  
  32.    Else
  33.  
  34.    sh1 = InputBox("Saisir le nom de la feuille")
  35.    Sheets(sh1).Select
  36.    Set plage2 = Application.InputBox("Sélectionnez la plage !", "Sélection de cellules", Type:=8)
  37.  
  38.    End If
  39.  
  40.  
  41.    Sheets(sh).Range(plage1.Address).Copy
  42.  
  43.    ActiveSheet.Range(plage2.Address).Select
  44.    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
  45.        xlNone, SkipBlanks:=False, Transpose:=False
  46.    Application.CutCopyMode = False
  47. End If
  48.  
  49.  
  50. fin:
  51. End Sub


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 21/08/2019 à 14:51:51  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
voici un fichier demo avec une liste des onglets à tester

http://hebergeurfichier.com/do [...] a7fd5.html


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
micropat
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 21/08/2019 à 14:55:48  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Re Merci Willy : Cette fois cela fonctionne parfaitement. Petite question comment faire pour sélectionner l'onglet d'une feuille existante plutôt que de saisir son nom pour la sélectionner ?

willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 21/08/2019 à 15:08:31  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
voir mon fichier demo qui te propose le choix de sélectionner un onglet


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
micropat
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 21/08/2019 à 15:42:43  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Re: Un très grand merci à toi Willy, c'est le top du top le plus que parfait.

willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 21/08/2019 à 15:45:26  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
problème résolu!
willy


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
micropat
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 21/08/2019 à 19:56:07  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Re : J'ai omis de préciser : je voudrais copier la MFC et les formules, mais entre temps j'ai résolu mon problème.
Message édité par micropat le 22/08/2019 à 10:17:32
(Publicité)
 Page :
1

Aller à :
 

Sujets relatifs
enchainement VBA sur 1 feuille xls copie coller impossible sous word
DVD vers VCD ou SVCD : une méthode facile et efficace ? Création dvd d'installation _ Méthode Micro Hebdo
Copier automatiquement le contenu d'une clé USB. Que méthode pour la création d'un Ghost ?
Méthode pour restauration système  
Plus de sujets relatifs à : Méthode Copier Coller VBA avec impoutbox

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
Fonction Si.conditions ne fonctionne pas 2
Word 2007 sous W10, ALT/F ne fonctionne pas 3
Acrobat Reader affichage 4
Probléme dans ma zone de texte 2
Comment créer un répertoire de plantes où je peux les chercher par vertu 1