besoin d'aide vba excel

Question

Bonjour,

J'ai des données à entrées dans trois lignes et une seul colonne:

ALPHA A
ALPHA B
ALPHA C

J'ai écrit ce qui suit en VBA Excel :

sub prog ( )
Dim    nomcell
nbrainter=
t=1
H=nbrainter

For an = 1 To 10
  For na = 1 To 10
Worksheets("feuille2").Cells(an, na).Value = ""

Next

For i = 1 To NbrAinter Step 1
nomcell=cells(i,2)

exit sub 

sub2


Worksheets("feuill2").Cells(i, 1).Value = "définition ="
Worksheets("feuill2").Cells(i, 2).Value = nom 

J=i+(t*h)+t
Worksheets("feuill2").Cells(j, 1).Value = "définition ="
Worksheets("feuill2").Cells(j, 2).Value = nom 

t=t+1
b=i+(t*h)+t
Worksheets("feuill2").Cells(b, 1).Value = "définition ="
Worksheets("feuill2").Cells(b, 2).Value = nom 


Qaund je tape run sous VBA il m'affiche seulement ALPHA A trois fois dans la feuille2 sur tois ligne :

Definition=ALPHA A
Definition=ALPHA A
Definition=ALPHA A

Je veux avoir un script qui affiche ALPHA A sur la ligne 1 et APLPHA B sur La ligne 2 et ALPHA C sur la ligne 3


Definition=ALPHA A
Definition=ALPHA B
Definition=ALPHA C

Merci de votre aide

dct33 · Answer

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

dct33 · Answer

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

Besoin d'aide vba excel

2 réponses

Newsletters