Recopier la valeur d'une cellule1 dans une cellule variable2

mm3633 - Modifié le 5 avril 2023 à 20:01
dysorthographie Messages postés 93 Date d'inscription jeudi 27 janvier 2022 Statut Membre Dernière intervention 3 mai 2024 - 6 avril 2023 à 00:32

Bonjour,

Sur Excel, j'aimerais créer une macro qui recopie la valeur d'une cellule du classeur 1 dans une cellule vide d'un tableau contenu dans un classeur 2. Pour cela j'ai créé une boucle If permettant de détecter si une cellule est vide, si elle est remplie elle se décale d'une colonne (du moins c'est ce que j'ai essayé de faire). Puis dans l'idéal il faudrait que les valeurs copiées soient collées dans le tableau du deuxième classeur.

n = 1

If IsEmpty(Cells(n, 2)) = True Then

Sheets("feuille 1").Range("C20").Copy
Sheets("feuille 2").Cells(2, n).Value = Paste

  Else
    n = n + 1
    End If

Le problème c'est que je n'arrive pas à coller les valeurs copiées dans les cellules vides.

Pourriez-vous m'aider ?

Merci d'avance

1 réponse

dysorthographie Messages postés 93 Date d'inscription jeudi 27 janvier 2022 Statut Membre Dernière intervention 3 mai 2024 5
6 avril 2023 à 00:32

Bonsoir,

With Sheets("feuille 2")
    .Cells(2, .Columns.Count).End(xlToLeft).Offset(, 1).Value = Sheets("feuille 1").Range("C20").Value
End With
0
Rejoignez-nous