Si cellule = x alors copie x fois la valeur
Bonjour,
je voudrai copier x fois la valeur de 3 cellules d'une même ligne lorsque sur la 4éme cellule de cette même ligne le nombre x est supérieur a 1.
j'ai une petite idée du début du code mais pour la suite ... je cale
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("E3").Address Then
If Range("E3").Value > 1 Then
voila, pouvez vous m'aidez
Cordialement
norip
Bonjour
Avec le peu de renseignement fournit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("E3"), Target) Is Nothing And Target.Count = 1 Then
If Val(Target) > 0 Then
Range("A3:C3").Copy Range("F3:H3").Resize(1, Val(Target) * 3)
End If
End If
End SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("E3").Address Then
If Not IsEmpty(Cells(3, 5)) Then
If Range("E3").Value > 1 Then
Range("E3").Value = n
While Rows.Cells(n, 1) <> n + 2
Cells(3, 2).Select
Selection.Copy
For i = 4 To 21
Cells(i, 2).Select
ActiveSheet.Paste
Next i
Wend
Else
End If
Else
End If
Else
End If
End Sub
ca ressemble a quelque chose de cohérent ou nn ?
ton code est bon mais j'ai oublié de préciser que je souhaitai copier ces valeurs vers le bas et non vers la droite
Bonjour
Je laisserais le soin à Banzai de finir ce topic vu qu'il a déjà beaucoup avancé, mais juste pour ton information, je ne sais pas si c'est une étourderie ou non mais :
norip a écrit :Range("E3").Value = n
ne marcherait pas, car il faut que ton "n" prenne la valeur de ta cellule alors que toi tu lui indique de mettre ta valeur "n" (qui doit être vide comme variable) dans la cellule E3.
La variable qui reçoit la valeur est toujours placée à gauche de l'égalité.
Cordialement,
Bonjour
Le mieux c'est de fournir un fichier dans lequel tu aurais marqué ce que tu as et ce que tu veux obtenir exactement
Fais 1 ou plusieurs exemple du résultat attendu
@Zirak
Bonjour
Souvent j'ai des difficultés à comprendre les problèmes, alors si tu penses avoir compris et que tu penses avoir une une solution, il ne faut pas te gêner.
Cela ne sera que bénéfique pour le demandeur
Même avec sa macro je n'ai pas compris ce qu'il veut faire
Bonne journée
Bonjour Banzai,
Non tu as bien compris sa demande, il faut juste modifier ta macro initiale pour que la copie ne se fassent pas sur les colonnes de droites
mais sur les lignes en dessous:
En gros si en E3 il a 3 et en colonne A - B -C :
Mr Jean Martinil faut qu'il se retrouve avec
Mr Jean Martin
Mr Jean Martin
Mr Jean Martinà l'endroit où il souhaites sa copie et non pas
Mr Jean Martin Mr Jean Martin Mr Jean Martincomme tu lui as proposé apparement.
Cordialement,
Bonjour
C'est vrai que j'étais loin d'avoir compris
Un essai
merci c 'est parfait
même si je n'ai bien sur pas tout compris
j'avais réussi à le faire mais seulement avec la cellule E3 pour cellule de départ
norip