Renvoyer une valeur d'une cellule dans une autre feuille

Fermé

Valeur
Vba

oualim - 16 juin 2017 à 08:31
Oualim - 17 juin 2017 à 23:39

Bonjour,

J'aurais souhaité avoir votre retour d’expérience, pour renvoyer une valeur d'une cellule de la feuille 1, vers une cellule X de la feuille 2 qui ne contient pas déjà une valeur. Je m'explique : je veux que Excel aille chercher une cellule vide (D4, D5, D6,... jusqu'à ce qu'il trouve la cellule Dx qui est vide) dans une feuille B et caser la valeur de ma cellule R2 de ma feuille A dans la cellule Dx de ma feuille B!!

Je sais que c'est un peu farfelu :p mais ça vaut le coup!

Merci d'avance pour vos retours les amis

A voir également:

Excel renvoyer la valeur d'une cellule en fonction d'une autre vba
Aller à la ligne dans une cellule excel - Guide
Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
Liste déroulante excel - Guide
Excel fonction si et - Guide
Comment colorer une cellule excel en fonction du contenu d'une autre cellule ✓ - Forum Excel

2 réponses

Réponse 1 / 2

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
16 juin 2017 à 08:54

Bonjour,

En VBA tu devrais pouvoir le faire mais il faut savoir quelles sont les conditions de cette procédure.

Réponse 2 / 2

gérard
17 juin 2017 à 00:05

Code VBA pour l'exemple que tu as donné (en colonne D) :


Option Explicit

Sub Essai()
  Dim lig As Long: lig = 2 ' => à partir de la ligne 3
  Do: lig = lig + 1: Loop Until IsEmpty(Cells(lig, 4))
  Cells(lig, 4) = Worksheets("A").[R2]
End Sub

⚠ Si tes données commencent en D3, lig doit être initialisé
à 3-1 au départ (donc lig = 2), car lig = lig +1 est exécuté
juste après.

gérard
17 juin 2017 à 18:45

@oualim

⚠ Tu dois lancer la macro à partir de ta feuille "B", ou ajouter la ligne #5
de ce code VBA :


Option Explicit

Sub Essai()
  WorkSheets("B").Select
  Dim lig As Long: lig = 2 ' => à partir de la ligne 3
  Do: lig = lig + 1: Loop Until IsEmpty(Cells(lig, 4))
  Cells(lig, 4) = Worksheets("A").[R2]
End Sub

Autre solution : interdire la suite de l'exécution de la macro si l'utilisateur
n'a pas choisi la feuille "B" ; changer alors ainsi la ligne #5 :

  If ActiveSheet.Name<>"B" Then Exit Sub

Donc si l'utilisateur lance la macro à partir d'une autre feuille
que la feuille "B", on quitte aussitôt la sub, sans rien faire.

Oualim
17 juin 2017 à 23:39

Merci bcp gérard! Je vais essayer ca déjà, car je connais rien en vba, mais je tenterai ca d abord. Ca serait bien si ca marchera!

Discussions similaires

Récupérer une valeur d'une autre feuille grace à un code.

Ecrire une valeur dans une cellule en fonction d'une autre

Masquer des lignes en fonction de la valeur d'une cellule

Excel:récupérer le contenu d'une cellule en fonction d'une autre

Méthode find dans VBA - Recherche de données sous Excel

Excel si cellule contient texte alors...

Discussions similaires

Newsletters