Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

RESOLU - Code VBA pour copié

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

Ternoise

XLDnaute Occasionnel
Bonsoir

Quelle est le code VBA qui permet de copié la valeur d'une cellule nommée 'Nom" vers une autre feuille dans la colonne A à partir de la 3ème ligne, si elle est vide, sinon en dessous.

Merci de votre aide

David
 
Dernière édition:
Trier par date Trier par votes
Re : Code VBA pour copié

Bonjour, Ternoise, le Forum,

Peut-être ainsi :

Code: 
Option Explicit
Sub Valeur_copier_là_si()
    If Sheets("Feuil2").Range("A3").Value = "" Then
        Sheets("Feuil1").Range("Nom").Copy Destination:=Sheets("Feuil2").Range("A3")
    Else
        Sheets("Feuil1").Range("Nom").Copy Destination:=Sheets("Feuil2").Range("a65536").End(xlUp)(2)
    End If
End Sub

A bientôt 🙂
 
Vote positif 0 Vote négatif
Re : Code VBA pour copié

Bonsoir et merci

Mais erreur "L'indice n'appartient pas à la sélection" sur If Sheets("Feuil2").Range("A3").Value = "" Then

En fait, j'ai déjà posté exactement ce que j'aimerais mais sans réponse, je post en plus simple et je vais essayer d'adapter !

Merci de votre aide
 
Vote positif 0 Vote négatif
Re : Code VBA pour copié

Bonjour et merci

Toutefois, étant donné que la cellule de destination est fusionnée, cela ne fonctionne pas.
Autre problème, après essai sans le fusionnement, cela copie la cellule. J'aimerais juste la valeur de la cellule car celle-ci comporte un format et une formule.

Merci de l'aide
 
Vote positif 0 Vote négatif
Re : Code VBA pour copié

Re-bonjour,

Ternoise à dit:
... étant donné que la cellule de destination est fusionnée, cela ne fonctionne pas...
Cliquez pour agrandir...

Mieux vaut choisir l'option "Centré sur plusieurs colonnes".


Ternoise à dit:
... J'aimerais juste la valeur de la cellule car celle-ci comporte un format et une formule...
Cliquez pour agrandir...

Un nouveau code :

Code: 
Option Explicit
Sub Valeur_copier_là_si_V_02()
    If Sheets("Feuil2").Range("A3").Value = "" Then
        Sheets("Feuil2").Range("A3") = Sheets("Feuil1").Range("Nom")
    Else
        Sheets("Feuil2").Range("a65536").End(xlUp)(2) = Sheets("Feuil1").Range("Nom")
    End If
End Sub

Si le résultat ne correspond pas à l'attente et pour éviter de tourner en rond, merci de bien vouloir fournir le fichier de travail, dépourvu de donnée confidentielle.

A bientôt 🙂
 
Vote positif 0 Vote négatif
Re : Code VBA pour copié

Bonsoir et merci de la réponse.

Cela fonctionne beaucoup mieux.

Malgré tout et au fur et à mesure de la construction du projet, je constate quelques erreurs.

A savoir que la copie doit se faire ligne par ligne

Je joint un exemple de mon projet avec les explications dessus.

Merci de l'aide

David
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
Microsoft 365 Combobox
Réponses
6
Affichages
305
Valtrase
  • Résolu(e)
XL 2021 Code vba pour filtres automatiques sans le nom de l'onglet
Réponses
4
Affichages
198
sylvanu
  • Résolu(e)
XL pour MAC Code vba pour recherche sur une seule ligne
Réponses
4
Affichages
182
deudecos
M
  • Question Question
Microsoft 365 Chercher dernière valeur d'une ligne mais avec une particularité
Réponses
4
Affichages
338
Marie.
M
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
456
juju91
J
  • Résolu(e)
XL 2019 Définition des fonctions volatiles et propriété Saved
Réponses
13
Affichages
403
job75
  • Résolu(e)
XL 2021 Une aide pour optimiser du code VBA
2
Réponses
16
Affichages
701
jeff1494
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
646
AtTheOne
  • Question Question
Microsoft 365 problème de modification de code VBA sur image
Réponses
6
Affichages
294
Yann71
G
  • Question Question
XL 2016 filtrer, copier et coller les données avec la macro
Réponses
4
Affichages
319
job75
B
  • Question Question
XL 2021 Ajout dans ligne vba
Réponses
2
Affichages
467
sylvanu
B
  • Résolu(e)
XL 2021 VBA : activer une feuille dont le nom est la valeur d'une cellule
Réponses
2
Affichages
201
berru76
B
  • Question Question
XL 2019 Application.Run
Réponses
3
Affichages
256
Atiom
S
  • Résolu(e)
XL 2016 Avis / Aide réécriture code
2 3
Réponses
38
Affichages
1 K
safranien
S
A
  • Question Question
Déplacer données en vba
Réponses
3
Affichages
560
akm
A
J
  • Résolu(e)
Microsoft 365 calcul somme dans tableau selon critère
Réponses
2
Affichages
441
JBL07
J
  • Résolu(e)
XL 2016 Excel code vba motus
Réponses
11
Affichages
672
papychat1
A
  • Résolu(e)
XL 2019 Optimisation code VBA (Icônes flottantes)
Réponses
14
Affichages
713
Amilo
A
J
  • Résolu(e)
Microsoft 365 lettre suivante
Réponses
5
Affichages
665
sylvanu
E
  • Résolu(e)
Microsoft 365 Reduire Temps Execution Code
Réponses
5
Affichages
487
eric72
E
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…