Aide macro tableau avec variable
Bonjour à tous,
Ne connaissant pas grand chose aux macros je vous sollicite à nouveau afin de créer un tableau dont chaque ligne dépend d’une valeur différente d’une variable.
Sur ma première feuille j’ai donc :
- une cellule avec ma variable, par exemple en A1.
- 4 cellules, par exemple en B2, B3, B4 et B5, dont la valeur respective dépend de celle de A1.
J’aimerais créer sur ma deuxième feuille un tableau des différentes valeurs de B2, B3, B4 et B5 selon A1, sachant que A1 débute à 0 et évoluerait par pas de 0,05 jusqu’à une valeur à définir sur la deuxième feuille.
Quelqu’un aurait-il une solution ?
Je vous remercie d’avance pour le temps que vous voudrez bien consacrer à m’aider. Bonne journée
Bonjour et bienvenue sur le forum
Un essai à tester.. Te convient-il ?
Bye !
Bonjour merci beaucoup d'avoir pris le temps de me répondre.
Dans l'idée c'est tout à fait ça ! Ca va beaucoup m'aider !
Dans les faits et pour complexifier la chose si la motivation vous prend, mes données à copier (B2 à B5 dans l'exemple) sont espacées de 3 lignes (soit B2, B5, B8, B11) et dépendent également d'une valeur fixe en B15 par exemple. J'ai exactement le même schéma sur les colonnes C, D, E, F, G, H, dépendant toutes de la valeur fixé à la ligne 15 de la colonne considérée ainsi que de la variable en A1. J'aimerai pouvoir sur la feuille 2, créer le tableau selon la colonne choisie (B à H).
Un énorme merci !
Bonjour,
Je reviens un peu tard sur le sujet après avoir pas mal planché sur la question. La solution proposée n'a pas fonctionné pour mon application mais m'a bien aidé. Peut-être était-elle trop spécifique. Bref, j'ai réussi avec ce code (qui n'est sûrement pas le plus concis) :
Sub Graph_capacité_portante()
Set f = Sheets("Fondations profondes Eurocode 7")
Range("A4:E" & Rows.Count).ClearContents
lgn = 4 'ligne du début du tableau
For n = Range("E1") To Range("G1").Value + Range("I1") Step Range("I1").Value 'de cellule E1 à G1 compris par pas de I1
f.Range("M9") = n
Range("A" & lgn) = n
If Range("C1").Value = f.Range("D25").Value Then
Range("B" & lgn) = f.Range("D35").Value
Range("C" & lgn) = f.Range("D38").Value
Range("D" & lgn) = f.Range("D41").Value
Range("E" & lgn) = f.Range("D44").Value 'premier type de pieux
Else
If Range("C1").Value = f.Range("E25").Value Then
Range("B" & lgn) = f.Range("E35").Value
Range("C" & lgn) = f.Range("E38").Value
Range("D" & lgn) = f.Range("E41").Value
Range("E" & lgn) = f.Range("E44").Value 'deuxième type de pieux
Else
If Range("C1").Value = f.Range("F25").Value Then
Range("B" & lgn) = f.Range("F35").Value
Range("C" & lgn) = f.Range("F38").Value
Range("D" & lgn) = f.Range("F41").Value
Range("E" & lgn) = f.Range("F44").Value 'troisième type de pieux
Else
If Range("C1").Value = f.Range("G25").Value Then
Range("B" & lgn) = f.Range("G35").Value
Range("C" & lgn) = f.Range("G38").Value
Range("D" & lgn) = f.Range("G41").Value
Range("E" & lgn) = f.Range("G44").Value 'quatrième type de pieux
Else
If Range("C1").Value = f.Range("H25").Value Then
Range("B" & lgn) = f.Range("H35").Value
Range("C" & lgn) = f.Range("H38").Value
Range("D" & lgn) = f.Range("H41").Value
Range("E" & lgn) = f.Range("H44").Value 'cinquième type de pieux
Else
If Range("C1").Value = f.Range("I25").Value Then
Range("B" & lgn) = f.Range("I35").Value
Range("C" & lgn) = f.Range("I38").Value
Range("D" & lgn) = f.Range("I41").Value
Range("E" & lgn) = f.Range("I44").Value 'sixième type de pieux
Else
If Range("C1").Value = f.Range("J25").Value Then
Range("B" & lgn) = f.Range("J35").Value
Range("C" & lgn) = f.Range("J38").Value
Range("D" & lgn) = f.Range("J41").Value
Range("E" & lgn) = f.Range("J44").Value 'septième type de pieux
End If
End If
End If
End If
End If
End If
End If
lgn = lgn + 1
Next n
End Sub