Réaliser 2 boucles pour croiser des valeurs
Bonjour à tous,
J'ai un tableau à 2 entrées, et j'aimerai créer une macro qui permettent de croiser les valeurs, càd:
Feuille "calendrier 2015":
Colonne D j'ai des valeurs sous formes de nombres(dates transformées en nombres)
Ligne 2 j'ai une liste d'objets
Feuille "de saisie"
un opérateur saisie l'objet voulu et les dates de sorties et retour (qui sont transformées en nombres colonnes O et P)
J'aimerai créer une macro permettant de récupérer les données de la feuille de saisie et de les placer dans la feuille calendrier
Cependant sur la feuille de saisie j'ai plusieurs lignes renseignées sur le même principe, ainsi j'aimerai que cette macro soit réalisée avec des boucles.
Je ne sais pas comment faire intérargir 2 boucles pour croiser des données...
Sur la feuille calendrier, j'ai réussi à écrire une fonction "et"&"si" juste pour faire le croisement avec une ligne de la feuille de sasie, cependant je souhaiterai que cette fonction recherche avec une boucle et non pas sur 1 seule ligne...
Je vous joints le fichier joint simplifié (car trop volumineux)
Merci à tous
Bonjour,
A première vue ...tu as déjà abordé cette question ...
La solution ... si je ne me trompe pas ... était la suivante ...
Sub Bouton_valider_données()
Dim A As Worksheet
Dim date_sortie As Date
Dim pnx_choisi As String
Dim dur_prev As Integer
Dim R As Range
Dim x As Integer
Dim i As Integer
Set A = Sheets("Feuille de saisie")
date_sortie = A.Cells(ActiveCell.Row, 1).Value
pnx_choisi = A.Cells(ActiveCell.Row, 10).Value
dur_prev = A.Cells(ActiveCell.Row, 12).Value
Set R = Sheets("calendrier 2015").Columns(3).Find(Format(date_sortie, "dd/mm/yy"), , xlValues, xlWhole)
x = Application.Match(pnx_choisi, Sheets("calendrier 2015").Range("A2:IV2"), 0)
For i = x To x + dur_prev - 1
Sheets("calendrier 2015").Cells(R.Row, i).Value = pnx_choisi
Next i
End SubBonjour,
J'ai bien reçu ton MP ...
Peux-tu indiquer si cette macro répond à ta question ... ou pas ...