Besoin d'aide vba excel
Fermé
papou32
Messages postés
8
Date d'inscription
lundi 6 octobre 2008
Statut
Membre
Dernière intervention
5 juillet 2010
-
10 avril 2010 à 15:59
dct33 Messages postés 41 Date d'inscription jeudi 8 avril 2010 Statut Membre Dernière intervention 20 avril 2010 - 12 avril 2010 à 19:07
dct33 Messages postés 41 Date d'inscription jeudi 8 avril 2010 Statut Membre Dernière intervention 20 avril 2010 - 12 avril 2010 à 19:07
A voir également:
- Besoin d'aide vba excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
2 réponses
dct33
Messages postés
41
Date d'inscription
jeudi 8 avril 2010
Statut
Membre
Dernière intervention
20 avril 2010
39
10 avril 2010 à 19:19
10 avril 2010 à 19:19
Bonjour,
Il est difficile de comprendre ce que vous voulez faire
Dim permet de déclarer un variable
Dim Toto AS type de variable
AS integer pour un entier
As string pour du texte
etc Double pou decimal Date pour date
Dans un boucle for si le pas est de 1 le step 1 ne sert a rien
Le code présenté n'est pas complet
Dites en clair ce que vous voulez faire
Il faut débuter un jour donc bon courage
Bonne programmation
Il est difficile de comprendre ce que vous voulez faire
Dim permet de déclarer un variable
Dim Toto AS type de variable
AS integer pour un entier
As string pour du texte
etc Double pou decimal Date pour date
Dans un boucle for si le pas est de 1 le step 1 ne sert a rien
Le code présenté n'est pas complet
Dites en clair ce que vous voulez faire
Il faut débuter un jour donc bon courage
Bonne programmation
dct33
Messages postés
41
Date d'inscription
jeudi 8 avril 2010
Statut
Membre
Dernière intervention
20 avril 2010
39
12 avril 2010 à 19:07
12 avril 2010 à 19:07
Bonjour,
Je confirme l'objet n'est pas clair.
Expliquez clairement votre sujet. Certes cela vous semble clair mais pour ma part ça ne l'est pas.
Eric, vous dit qu'il manque des bouts de code
S'il s'agit que de recopier
Sub copie()
For X = 1 To 3
Sheets(1).Select
'Sélection de 10 cellules
Range(Cells(X, 2), Cells(X, 12)).Select
Selection.Copy
Sheets(2).Select
Cells(X, 2).Select
ActiveSheet.Paste
Next X
End Sub
autre solution
--------------------
Sub copie()
Sheets(1).Select
Range(Cells(1, 2), Cells(3, 12)).Select
Selection.Copy
Sheets(2).Select
Cells(1, 2).Select
ActiveSheet.Paste
Sheets(1).Select
End Sub
autre solution
--------------------
Sub copie()
For X = 1 To 3
For Y = 1 To 10
Sheets(2).Cells(X, Y) = Sheets(1).Cells(X, Y)
Next Y
Next X
End Sub
Voilà comment faire de la copie de différentes façons et il y en a d'autres
Bon courage et bonne programmation
Je confirme l'objet n'est pas clair.
Expliquez clairement votre sujet. Certes cela vous semble clair mais pour ma part ça ne l'est pas.
Eric, vous dit qu'il manque des bouts de code
S'il s'agit que de recopier
Sub copie()
For X = 1 To 3
Sheets(1).Select
'Sélection de 10 cellules
Range(Cells(X, 2), Cells(X, 12)).Select
Selection.Copy
Sheets(2).Select
Cells(X, 2).Select
ActiveSheet.Paste
Next X
End Sub
autre solution
--------------------
Sub copie()
Sheets(1).Select
Range(Cells(1, 2), Cells(3, 12)).Select
Selection.Copy
Sheets(2).Select
Cells(1, 2).Select
ActiveSheet.Paste
Sheets(1).Select
End Sub
autre solution
--------------------
Sub copie()
For X = 1 To 3
For Y = 1 To 10
Sheets(2).Cells(X, Y) = Sheets(1).Cells(X, Y)
Next Y
Next X
End Sub
Voilà comment faire de la copie de différentes façons et il y en a d'autres
Bon courage et bonne programmation
11 avril 2010 à 11:46
Merci pour votre réponse .
Je vais expliquer :
Le script que j'ai envoyé marche bien , mais il m'affiche trois fois Definition=ALPHA A ,
je veux qu'il m'affiche Definition=ALPHA B et Definition=ALPHA C Successivement comme ça:
Definition=ALPHA A
Definition=ALPHA B
Definition=ALPHA C
ALPHA A la première ligne et ALPHA B deuxième ligne et ALPHA C troisième ligne .
Est ce qu'il y a une boucle à introduire puisque j'introduit mes données dans la feuille 1 d'excell et après exécution du script il m'affiche le résultat dans la deuxième feuille .
dans ma déclaration j'ai mis :nomcell=cells(i,2) puisque les données que j'introduit sont fixé sur la deuxième collone et varient sur les ligne ( deuxième ligne ALPHA B et troisième ligne
ALPHA C
Merci pour votre aide .
11 avril 2010 à 21:00
Le script que j'ai envoyé marche bien
Ben non puisqu'il ne fait pas ce qu'il est sensé faire...
3 fois tu écris :
Worksheets("feuill2").Cells(..., 2).Value = nom
avec nom qui ne change pas, normal qu'il t'écrive la même chose.
De plus on, voit un for sans next...
eric