Copie cellule en fonction cellule adjacente VBA

[yadla]

Bonjour le forum,

Tout bête... Je veux trouver le code VBA qui me permet de copier la valeur de la cellule se trouvant juste à coté d'une autre cellule ayant pour texte "blabla". (blabla variant selon les cas)

Exemple :

Cellule A2 : "date"
Cellule B2 : "05/07/2007"

Je veux copier la valeur de la date dans une autre feuille.

Je cherche la cellule qui contient "date" (ici A2) et copie la cellule qui contient la valeur que je cherche (ici B2) dans l'autre feuille.

Il me semble pourtant que c'est simple, mais je m'en sors pas 😛

Help

 

[Roland_M]

Re : Copie cellule en fonction cellule adjacente VBA

bonjour

tu entres tes données dans la Feuil1 Exp en colonnes A1 et A2
tu mets dans la Feuil2 dans les cellules que tu veux la formule:
=(Feuil1!A1)
=(Feuil1!A2)
...etc...

cordialement. Roland

 

[Staple1600]

Re : Copie cellule en fonction cellule adjacente VBA

Bonsoir


A tester , adapter et améliorer

Sub test()
Dim cell As Range
Dim r As Integer
Dim c As Integer
For Each cell In Range([A1], [A65356].End(xlUp))
If cell.Value = "blablah" Then
r = cell.Row
c = cell.Column
cell.Offset(0, 1).Copy Sheets(3).Cells(r, c)
End If
Next
End Sub

 

[Robert]

Re : Copie cellule en fonction cellule adjacente VBA

Bonsoir Yadla, Merda, bonsoir le forum,

Une porposition VBA en pièce jointe. Tu n'es pas très précis sur l'endroit où tu veux coller le résultat, j'ai mis A1... Tu adapteras.



Édition :

Bonsoir Staple on s'est croisés

 

[yadla]

Re : Copie cellule en fonction cellule adjacente VBA

Bonsoir Robert, Staple1600, merda,

Je vous remercie pour votre aide.

J'ai maintenant ce qu'il me faut. 😎

Bonne soirée.

A bientot.

YADLA

 

[yadla]

Re : Copie cellule en fonction cellule adjacente VBA

Bonjour,

Petite modification,

J'ai nommé les cellules : exemple : jour.

J'essai de trouver la cellule ayant pour nom "jour".

J'ai essayé :

Set cell_jour = Cells.Name.Find("Jour", , xlValues, xlWhole)
If Not cell_jour Is Nothing Then
    Sheet(3).Range("A1") = cell_jour.Offset(0, 1)

Mais bon, ca ne marche pas 😕

Vous pouvez m'éclairer la dessus ?

 

[yadla]

Re : Copie cellule en fonction cellule adjacente VBA

Oups... 😛

Je me suis trompé de ligne dans la copie...

Sheet(3).Range("A1") = cell_jour.Value

Désolée 😱