copie de deux cellules associer a une date

[roncevaux68]

Bonjour a tous

Je viens vers vous pour un coup de mains car je voudrais copier deux cellules (c25 et g25) qui est associer a une date en (b25 et h25) et en cliquant sur le bouton « mise a jour » placer la valeur en face de la date ou cela sur les trois tableau .
Je me doute qui va falloir faire une boucle ….

Ficher joint

Merci par avance
Stéphane

 

[JNP]

Re : copie de deux cellules associer a une date

Salut Roland ,
C'est clair comme de l'eau de roche ton problème ... Certainement la raison pour laquelle tu n'as pas eu de réponse ...
Déjà, tu te mélange les pinceaux entre les colonnes, tu parles de 3 tableaux, mais si tu prends les valeurs dans 1, il n'en reste que 2, et pour l'instant, les valeurs exemples ne correspondent pas ...
Bref, il nous faudrait des critères comme savoir si la première date est toujours au même endroit, pourquoi la prendre, où la mettre, etc. ...
Au plaisir de te lire (mais plus ce soir...)

 

[roncevaux68]

Re : copie de deux cellules associer a une date

bonsoir jnp

ok on verra cela demain

 

[roncevaux68]

Re : copie de deux cellules associer a une date

Bonjour a tous

Mes variables b25 pour la date et les valeurs (c25 et h25)

Et je voudrais placer les valeur (c25 et h25) en face de la date correspondante a la variable b25

Dans un premier temps

Et je voudrais le faire dans les deux autre tableaux ci dessous.
J’espère être plus claire dans mes explications

Merci par avance
Stéphane

 

[JNP]

Re : copie de deux cellules associer a une date

Re ,
Par exemple

Sub test()
Dim Cel As Range
For Each Cel In Range("B26:B500")
If Cel.Value = Range("B25").Value Then
Cel.Offset(0, 1) = Range("C25").Value
Cel.Offset(0, 6) = Range("H25").Value
End If
Next Cel
End Sub

Bon courage

 

[roncevaux68]

Re : copie de deux cellules associer a une date

bonjour
merci du code
mais je comprend rien c'est très flou pour moi

 

[JNP]

Re : copie de deux cellules associer a une date

Re ,

Sub test()
Dim Cel As Range
' Déclare une variable cellule
For Each Cel In Range("B26:B500")
' Pour chaque cellule dans la plage B26 à B500
If Cel.Value = Range("B25").Value Then
' Si la valeur de la cellule est égale
' à la valeur de B25
Cel.Offset(0, 1) = Range("C25").Value
' La cellule décalée d'une colonne est égale à C25
Cel.Offset(0, 6) = Range("H25").Value
' La cellule décalée de 6 colonnes est égale à H25
End If
' Fin du test
Next Cel
' Cellule suivante
End Sub

Bonne suite

 

[roncevaux68]

Re : copie de deux cellules associer a une date

re
non c'est pas ce que je veux comme programme

Mes variables b25 pour la date et les valeurs (c25 et h25)

Et je voudrais placer les valeur (c25 et h25) en face de la date correspondante a la variable b25

 

[JNP]

Re : copie de deux cellules associer a une date

Re ,

re
non c'est pas ce que je veux comme programme

Mes variables b25 pour la date et les valeurs (c25 et h25)

Et je voudrais placer les valeur (c25 et h25) en face de la date correspondante a la variable b25

Rien compris ... B25, c'est une cellule, pas une variable ...
Essaie de faire un fichier exemple avec une feuille Avant et une feuille Après, peut-être que j'y comprendrai quelque chose ...
Bonne suite

 

[roncevaux68]

Re : copie de deux cellules associer a une date

re voila j'ai modifier le fichier avant et après et aussi a la fin de la semaine

 

[JNP]

Re : copie de deux cellules associer a une date

Re ,
Et évidemment, c'est logique de mettre le 13 février dans le 13 janvier ...
T'es pas un peu farce, toi ?

 

[roncevaux68]

Re : copie de deux cellules associer a une date

re
non c'est pas logique de mettre le 13 février dans le 13 janvier c'est de ma faite j'ai mal taper la date dans la case A13 il fait mettre le 13 /02/2012

désoler

 

[JNP]

Re : copie de deux cellules associer a une date

Re ,

Sub test()
Dim Cel As Range, Tablo1, Tablo2, I As Byte
Tablo1 = Array("B13:B17", "B33:B37", "B53:B57")
Tablo2 = Array("B25", "B45", "B65")
For I = LBound(Tablo1) To UBound(Tablo1)
For Each Cel In Range(Tablo1(I))
If Cel.Value = Range(Tablo2(I)).Value Then
Cel.Offset(0, 1) = Range(Tablo2(I)).Offset(0, 1).Value
Cel.Offset(0, 6) = Range(Tablo2(I)).Offset(0, 6).Value
End If
Next Cel
Next I
End Sub

Bonne suite

 

[roncevaux68]

Re : copie de deux cellules associer a une date

re
si je veux rajouter d'autre tableau je modifie
Tablo1 = Array("B13:B17", "B33:B37", "B53:B57","???:???")
Tablo2 = Array("B25", "B45", "B65","???")

 

[JNP]

Re : copie de deux cellules associer a une date

Re ,
Exactement, à condition que ton décalage de colonne soit toujours le même ...
Bon courage