Transfert de valeur entre feuilles excel

[matrix]

Bonjour,

J'aurais besoin d'aide sur un script.

Dans mon fichier excel, feuille: Horaire Fruits et Horaire Viandes colonne E-G-I-K-M et O, se trouve des heures.

Ses heures se retrouve dans la feuille Base de donnée colonne A.

Je voudrais faire en sorte que le chiffre de la colonne B de la feuille BASE DE DONNÉE, s'inscrive dans les feuilles Horaire Fruits et Horaire Viandes dans la cellule à droite de l'heure inscrite dans les colonnes E-G-I-K-M et O.

Tout ça en cliquant sur un bouton VBA

Comment faire s.v.p

 

[fanfan38]

Re : Transfert de valeur entre feuilles excel

Bonjour
Dans le même principe que la question précédente
Macro à mettre sur la feuille correspondante
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
Dim h As Integer
Dim monheure As String
For i = 6 To Range("e65536").End(xlUp).Row Step 3
For j = 5 To 17 Step 2
monheure = Cells(i, j).Value
For h = 2 To Sheets("Base de données").Range("a65536").End(xlUp).Row
If Sheets("Base de données").Cells(h, 1).Value = monheure Then
Cells(i, j + 1).Value = Sheets("Base de données").Cells(h, 2).Value
Exit For
End If
Next h
Next j
Next i
End Sub

A+ François

 

[matrix]

Re : Transfert de valeur entre feuilles excel

Je remarque qu'il fait les changement que sur la feuille ou je met la macro.

Peut-il faire les 2 feuilles en même temps, Horaire Fruits et Horaire Viandes ?

JM

 

[fanfan38]

Re : Transfert de valeur entre feuilles excel

Dans ce cas ou tu mets un bouton par feuille ou tu ajoute une boucle pour la 2éme feuille.

A+ françois

 

[matrix]

Re : Transfert de valeur entre feuilles excel

J'ai fais comme ça:

Sheets("Horaire Viandes").Select


Dim i As Integer
Dim j As Integer
Dim h As Integer
Dim monheure As String
For i = 6 To Range("e65536").End(xlUp).Row Step 3
For j = 5 To 17 Step 2
monheure = Cells(i, j).Value
For h = 2 To Sheets("Base de données").Range("a65536").End(xlUp).Row
If Sheets("Base de données").Cells(h, 1).Value = monheure Then
Cells(i, j + 1).Value = Sheets("Base de données").Cells(h, 2).Value
Exit For
End If
Next h
Next j
Next i

Sheets("Horaire Fruits").Select
For i = 6 To Range("e65536").End(xlUp).Row Step 3
For j = 5 To 17 Step 2
monheure = Cells(i, j).Value
For h = 2 To Sheets("Base de données").Range("a65536").End(xlUp).Row
If Sheets("Base de données").Cells(h, 1).Value = monheure Then
Cells(i, j + 1).Value = Sheets("Base de données").Cells(h, 2).Value
Exit For
End If
Next h
Next j
Next i

Mais il ne fait rien sur la 2ième feuille.

 

[fanfan38]

Re : Transfert de valeur entre feuilles excel

Ajoute après Dim monheure As String
Sheets("Horaire Viandes").Select

A+ François

 

[matrix]

Re : Transfert de valeur entre feuilles excel

Ça fonctionne.

Merci pour ton aide.

JM