Renvoyer une valeur d'une cellule dans une autre feuille

Valeur
Vba

oualim -
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
Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
Fonction si et excel - Guide
Comment colorer une cellule excel en fonction du contenu d'une autre cellule ✓ - Forum Excel
Déplacer une colonne excel - Guide
Aller à la ligne dans une cellule excel - Guide

2 réponses

Réponse 1 / 2

gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention 4 724

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

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

@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

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

Coller la valeur d'une cellule VBA

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

code vba max et min

Afficher le numéro de ligne de la cellule

Afficher la valeur de la derniere cellule non vide dans textbox

Attribué une valeur a un choix de Combobox VBA

Votre réponse

Discussions similaires