Copie cellule en fonction cellule adjacente VBA

Roland_M

XLDnaute Barbatruc

• 5 Juillet 2007

• #2

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Juillet 2007

• #3

Re : Copie cellule en fonction cellule adjacente VBA

Bonsoir


A tester , adapter et améliorer

Code:

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

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 5 Juillet 2007

• #4

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

 

Pièces jointes

• Yadla_v1.xls

  26.5 KB · Affichages: 503

Vote positif 0 Vote négatif

yadla

XLDnaute Occasionnel

• 5 Juillet 2007

• #5

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

 

Vote positif 0 Vote négatif

yadla

XLDnaute Occasionnel

• 6 Juillet 2007

• #6

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é :

Code:

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 ?

 

Vote positif 0 Vote négatif

yadla

XLDnaute Occasionnel

• 6 Juillet 2007

• #7

Re : Copie cellule en fonction cellule adjacente VBA

Oups... 😛

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

Code:

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

Désolée 😱

 

Vote positif 0 Vote négatif