Comprendre le bitcoin, l'intelligence artificielle, faire un site web... En 3 minutes en vidéo!

probleme de macro excel 2000 pour copier des cellules

Forum informatique > Aide logiciels bureautique & jeux > probleme de macro excel 2000 pour copier des cellules

<<<1>>>

[Page 1 sur 1 - 1 message]
Informations Messages

bob5

Avatar de bob5
7 messages
Neurone isolé
Neurone isolé

Lien direct Le 14 Août 2007 à 14h03

bonjour

j'ai fais une macro pour copier une cellule mais j'ai quelques problemes que je n'arrive pas a résoudre Pleure

la mocro copie une cellule en fontion de la valeur qui se trouve en b2
grace a un private sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim I As Integer

If Target.Address(False, False) = "B2" Then
For I = 0 To Target.Value - 1
Range("D10").Offset(I, 0).Application.Run "Classeur1Macro1"
Next
End If
End Sub


la macro pour copier la cellule est

Sub Macro1()
' Macro enregistrée le 31/07/2007 par POSTE09
'

Range("B8").Select
Selection.Copy

Selection.Cells(3, 1).Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
End Sub

Dans la cellule B8 se trouve "toto"

quand je saisie 3 en B2 j'ai le resultat suivant

B8 TOTO
B9
B10 TOTO
B11
B12 TOTO
B13
B14 TOTO

premier probleme j'ai quatre toto alors qui m'en faut que trois

deusieme probleme si je saisie une valeur dans la cellule B15 , apres avoir lancer la macro j'obtien le resultat suivant

B8 TOTO
B9
B10
B11
B12
B13
B14
B15 MARCEL
B16
B17 TOTO
B18
B19 TOTO
B20
B21 TOTO

Le TOTO se copie sous marcel alors que je veux qu il se copier entre B10 et B14

troisieme probleme je ne sais pas quel code utiliser pour copier toute la ligne de la cellule B8

comment dois je faire si possible donnez moi des exemples car je suis debutant

merci pour vos reponses

 

Publicité

<<<1>>>

[Page 1 sur 1 - 1 message]

Forum informatique > Aide logiciels bureautique & jeux > probleme de macro excel 2000 pour copier des cellules