Discussion :

[beast666]

Bonjour à tous,

Voilà je me suis fait un petit tableau Excel dans lequel le fait de rentrer une valeur dans une cellule (par exemple "B1") modifie une multitude de données (par le biais de formules)se trouvant bien évidemment dans d'autres cellules (par exemple "C3" et "C4").

Il se trouve que j'ai environ 150 valeurs à rentrer dans "B1", et je voudrai, à chaque valeur de "B1", copier et coller "C3" et "C4" dans un nouvel onglet, pour en faire une sorte de synthèse.

Mes capacités en VBA me limitent terriblement et je ne me sent pas non plus d'attaque pour le faire à la main...

Si il y a quelqu'un pour m'aider, je suis preneur...

merci d'avance

A+

[casefayere]

Bonjour,
il faudrait savoir si tu executes ton code à partir d'un bouton ou d'un évènement de la feuille (ex : evenement change), dans quelles cellules de la nouvelle feuille veux-tu copier les données de c3, c4, etc.,

[laetitia]

bonjour beast l'ami casefayere le forum par une evenementiel peut etre mais il faut savoir comment on les ranges + savoir si on exporte que les valeurs ect..
un ex: basique

Option Explicit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("b1")) Is Nothing Then
Range("c3").Copy Destination:=Sheets(2).Range("A65536").End(xlUp)(2)
Range("c4").Copy Destination:=Sheets(2).Range("b65536").End(xlUp)(2)
End If
End Sub

[Nanou28]

Bonjour !
Je ne suis pas sure d'avoir tout compris mais voici une proposition de code (mais il faut appeler ce code, par un bouton, par exemple, voir à la fin du post) :
Il ouvre à chaque fois une feuille, du nom de la valeur attribuée à B1 et y place les valeurs de B1, C3 et C4.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub essai()
 
Valeur = InputBox("Valeur de B1")
Range("B1").Value = Valeur
 
C3 = Range("C3").Value
C4 = Range("C4").Value
Sheets.Add
ActiveSheet.Name = "" & Valeur
Range("A1").Value = "B1="
Range("B1").Value = Valeur
Range("A2").Value = "C3="
Range("A3").Value = "C4="
Range("B2").Value = C3
Range("B3").Value = C4
Sheets(1).Select
 
End Sub

Pour le bouton d'appel de ce code, voici une proposition de code à mettre en feuille 1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub nouvelle_valeur()
'Nouveau bouton pour entrer les valeurs de B1
 
ActiveSheet.Buttons.Add(9.75, 3.75, 87.75, 36).Select
Selection.OnAction = "essai"
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "Nouvelle valeur"
 
End Sub

J'espère avoir pu t'aider.

[beast666]

Merci à tous pour vos réponses,

En fait, pour préciser un peu les choses, peu importe où les données vont être copiées.

L'idée directrice de la macro est de faire tourner mes 150 valeurs dans la cellule B1 et de copier à chaque fois les cellules C3 et C4 pour faire une sorte de listing.
L'objectif est que je n'ai pas à rentrer à la main les 150 valeurs et copier-coller à chaque fois les cellules C3 et C4...

Je pense qu'il doit y avoir une boucle derrière ça mais je ne vois pas comment l'appliquer

J'espère avoir été un peu plus clair dans mes explications

Encore un grand merci à vous

[laetitia]

re le fil tes 150 valeurs c'est quoi!! une idee je rentre en b1 de 1 a 150 avec une boucle

Option Explicit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub essai()
Dim i As Byte
For i = 1 To 150
[b1] = i
Next i
End Sub