Macro copier-coller deplacer sur la droite si cellule pleine
Résolu/Fermé
fagots
Messages postés
92
Date d'inscription
mercredi 14 août 2013
Statut
Membre
Dernière intervention
26 avril 2016
-
Modifié par fagots le 15/08/2013 à 10:21
Le Pingou Messages postés 11538 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 mars 2023 - 22 août 2013 à 17:42
Le Pingou Messages postés 11538 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 mars 2023 - 22 août 2013 à 17:42
A voir également:
- Macro copier-coller deplacer sur la droite si cellule pleine
- Déplacer une colonne excel - Guide
- Dessin sms copier coller zizi ✓ - Forum Internet / Réseaux sociaux
- Macro logiciel - Télécharger - Organisation
- Coeur copier coller ✓ - Forum Internet / Réseaux sociaux
- Barre droite clavier ✓ - Forum Mandriva / Mageia
27 réponses
Le Pingou
Messages postés
11538
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 mars 2023
1 334
21 août 2013 à 21:42
21 août 2013 à 21:42
Bonjour,
Le numéro de la ligne des données n'était pas correct, procédure corrigée :
Le numéro de la ligne des données n'était pas correct, procédure corrigée :
Sub Importer_valeur_cellule()
Dim objcible As Workbook, objsource As Workbook
Dim shci As Object, shso As Object
Dim c As Integer, nbvaci As Integer, nbvaso As Integer
Set objsource = Workbooks("fichier1.xlsx")
Set objcible = Workbooks("fichier2.xlsm")
Set shso = objsource.Sheets("Feuil1")
Set shci = objcible.Sheets("Feuil2")
Application.ScreenUpdating = False
' contrôler si nouvelle valeur sur classeur source
nbvaso = WorksheetFunction.CountA(shso.Rows(3))
nbvaci = WorksheetFunction.CountA(shci.Rows(3))
If nbvaci < nbvaso Then
For c = 1 To (nbvaso - nbvaci)
shso.Cells(3, nbvaci + c).Copy
shsi.Cells(3, nbvaci + c).PasteSpecial xlPasteValues
Next c
End If
Set objcible = Nothing: Set shci = Nothing
Set objsource = Nothing: Set shso = Nothing
Application.ScreenUpdating = True
End Sub
Le Pingou
Messages postés
11538
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 mars 2023
1 334
22 août 2013 à 10:29
22 août 2013 à 10:29
Bonjour,
L'écriture est correcte, pas de point entre [PasteSpecial xlPasteValues].
Je pense que le problème est ailleurs, ce serait plus simple de trouver l'erreur si vous pouviez me mettre les 2 classeurs à dispositions. Si oui, les compresser dans un dossier ZIP ou RAR et mettre ce dernier sur https://www.cjoint.com/ et poster le lien.
L'écriture est correcte, pas de point entre [PasteSpecial xlPasteValues].
Je pense que le problème est ailleurs, ce serait plus simple de trouver l'erreur si vous pouviez me mettre les 2 classeurs à dispositions. Si oui, les compresser dans un dossier ZIP ou RAR et mettre ce dernier sur https://www.cjoint.com/ et poster le lien.
fagots
Messages postés
92
Date d'inscription
mercredi 14 août 2013
Statut
Membre
Dernière intervention
26 avril 2016
22 août 2013 à 10:59
22 août 2013 à 10:59
Bonjour,
Voici lien pour le fichier. Bien évidement ce n'est pas le fichier original. Ce n'est qu'une création de ma part pour avoir la possibilité de le transmettre. mais la demande reste identique.
le lien: https://www.cjoint.com/?3Hwk3Mo1TRM
Salutations
fagots
Voici lien pour le fichier. Bien évidement ce n'est pas le fichier original. Ce n'est qu'une création de ma part pour avoir la possibilité de le transmettre. mais la demande reste identique.
le lien: https://www.cjoint.com/?3Hwk3Mo1TRM
Salutations
fagots
Le Pingou
Messages postés
11538
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 mars 2023
1 334
Modifié par Le Pingou le 22/08/2013 à 11:15
Modifié par Le Pingou le 22/08/2013 à 11:15
Bonjour,
Une petite erreur d'écriture, remplacer [shsi....] par [shci...]... !
Au passage je constate que vous avez plusieurs lignes dans votre tableau...... est-ce que vous devez aussi les mettre à jour.... ?
Salutations.
Le Pingou
Une petite erreur d'écriture, remplacer [shsi....] par [shci...]... !
Au passage je constate que vous avez plusieurs lignes dans votre tableau...... est-ce que vous devez aussi les mettre à jour.... ?
Salutations.
Le Pingou
fagots
Messages postés
92
Date d'inscription
mercredi 14 août 2013
Statut
Membre
Dernière intervention
26 avril 2016
22 août 2013 à 11:42
22 août 2013 à 11:42
Bonjour,
Effectivement cela fonctionne beaucoup.
A la question de mise à jour de toutes les lignes c'est oui et mon classeur à régulièrement plus de 150 lignes.
Faut-il ajouter quelque choses à la macro?
Salutations
fagots
Effectivement cela fonctionne beaucoup.
A la question de mise à jour de toutes les lignes c'est oui et mon classeur à régulièrement plus de 150 lignes.
Faut-il ajouter quelque choses à la macro?
Salutations
fagots
Le Pingou
Messages postés
11538
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 mars 2023
1 334
22 août 2013 à 13:01
22 août 2013 à 13:01
Bonjour,
Vos fichiers avec un petit complément d'affichage ... : https://www.cjoint.com/?3HwlCAAMP2A
Vos fichiers avec un petit complément d'affichage ... : https://www.cjoint.com/?3HwlCAAMP2A
fagots
Messages postés
92
Date d'inscription
mercredi 14 août 2013
Statut
Membre
Dernière intervention
26 avril 2016
22 août 2013 à 14:13
22 août 2013 à 14:13
Bonjour,
Désolé mais après avoir enregistré les deux fichiers, j'ai toujours rien qui ne ce copie dans mon fichier cible.
Désolé mais après avoir enregistré les deux fichiers, j'ai toujours rien qui ne ce copie dans mon fichier cible.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Le Pingou
Messages postés
11538
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 mars 2023
1 334
22 août 2013 à 15:36
22 août 2013 à 15:36
Bonjour,
Eh bien, la procédure ne traite que la ligne 3 selon votre demande.
Concernant mon dernier message avec : Vos fichiers avec un petit complément d'affichage il s'agit uniquement d'une mise en forme conditionnelle avec un fond rouge pour pourcentage plus petit ou égale à 94%.
La question que je me pose c'est : est-ce que cela fonctionne pour la ligne 3 .... ?
Eh bien, la procédure ne traite que la ligne 3 selon votre demande.
Concernant mon dernier message avec : Vos fichiers avec un petit complément d'affichage il s'agit uniquement d'une mise en forme conditionnelle avec un fond rouge pour pourcentage plus petit ou égale à 94%.
La question que je me pose c'est : est-ce que cela fonctionne pour la ligne 3 .... ?
fagots
Messages postés
92
Date d'inscription
mercredi 14 août 2013
Statut
Membre
Dernière intervention
26 avril 2016
22 août 2013 à 15:47
22 août 2013 à 15:47
bonjour,
Oui cela fonctionne pour la ligne 3
Salutations
fagots
Oui cela fonctionne pour la ligne 3
Salutations
fagots
Le Pingou
Messages postés
11538
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 mars 2023
1 334
22 août 2013 à 17:10
22 août 2013 à 17:10
Bonjour,
Merci alors c'est parfait puisque cela répond à votre demande de départ.
En ce qui concerne le traitement de toutes les lignes, la procédure n'est pas la même et de plus il est nécessaire de connaitre la structure des 2 fichiers.
Donc je ne peux pas en faire plus, désolé.
Merci alors c'est parfait puisque cela répond à votre demande de départ.
En ce qui concerne le traitement de toutes les lignes, la procédure n'est pas la même et de plus il est nécessaire de connaitre la structure des 2 fichiers.
Donc je ne peux pas en faire plus, désolé.
fagots
Messages postés
92
Date d'inscription
mercredi 14 août 2013
Statut
Membre
Dernière intervention
26 avril 2016
22 août 2013 à 17:32
22 août 2013 à 17:32
bonsoir
ok et merci quand même pour tout.
Salutations
fagots
ok et merci quand même pour tout.
Salutations
fagots
Le Pingou
Messages postés
11538
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 mars 2023
1 334
22 août 2013 à 17:42
22 août 2013 à 17:42
Bonjour,
Pour vous mettre sur la piste, il faut utiliser une boucle sur les lignes de la colonne [A :A] et en plus contrôler l'équivalence entre les 2 fichiers
Pour vous mettre sur la piste, il faut utiliser une boucle sur les lignes de la colonne [A :A] et en plus contrôler l'équivalence entre les 2 fichiers
22 août 2013 à 08:59
La macro ce bloque et le débogueur mais la ligne suivante en jaune:
shsi.Cells(3, nbvaci + c).PasteSpecial xlPasteValues
Salutations
fagots
22 août 2013 à 09:01
Le point après pasteSpecial et bien dans la macro.
Salutations
Fagots