Copier / Coller un peu particulier

Bonjour à tous,

Je ne connais rien en VBA, je cherche des formules et j'essaye de comprendre un peu tout ca seulement la je bloque sur qq chose :

Dans le fichier joint, il y a une feuille renta et un feuille calcul. Dans la feuille calcul il y a un suite de clients et de produits, il y a des blancs au milieu (ca peut paraitre bizarre mais c'est le résultat d'un autre filtre que j'ai dans un autre fichier au travail). J'aimerai donc copier ces données dans la feuille renta comme je l'ai mis dans le fichier! J'avoue ne pas savoir comment faire!

Pour la suite de la formule (qui est au point, enfin presque ) ca commence comme ca

For i = 2 To #1

For j = 2 To #2

#1 et #2 étant deux nombres différents. Seulement ce nombre doit être égal au nombre de cellule que donne les copier coller d'avant. Pour être plus claire : si il y a 25 clients dans la colonne A (de la cellule 2 à 26) il faut que : For i = 2 To 26. Pareil pour j (les produits) à l'horizontal. J'espère que vous avez compris ca que je voulais dire! Ca me permet en fait de faire tourner le reste de la formule! Je penses pas que les formules soient très très durs, mais je débute vraiment!

Je vous remercie d'avance!

Bonne soirée

Bonjour baroneddy,

A la place de #1, tu peux mettre :

Application.WorksheetFunction.CountA(Sheets("Calcul").[a:a]) + 1

A la place de #2, tu peux mettre :

Application.WorksheetFunction.CountA(Sheets("Calcul").[b:b]) + 1

Pour le #2 c'est la ligne que je dois compter, je remplace (b:b) par (1:1) ?

Une idée pour le reste?

Merci beaucoup en tout cas!

Salut le forum

Tu commences en VBA alors allons-y grossièrement

Sub copier()
  Dim I As Byte
  Dim J As Byte

J = 2
    For I = 1 To Sheets("Calcul").Range("A65536").End(xlUp).Row
        If Sheets("Calcul").Cells(I, 1) <> "" Then
            Sheets("Renta").Cells(J, 1) = Sheets("Calcul").Cells(I, 1)
            J = J + 1
        End If
    Next I

J = 2
    For I = 1 To Sheets("Calcul").Range("B65536").End(xlUp).Row
        If Sheets("Calcul").Cells(I, 2) <> "" Then
            Sheets("Renta").Cells(1, J) = Sheets("Calcul").Cells(I, 2)
            J = J + 1
        End If
    Next I

End Sub

Mytå

Je te remercie Myta, ca marche comme je veux, je vais juste ajuster ca pour mon vrai tableau mais c'est impeccable! Merci Bcp.

Et est-ce que cela me permet de supprimer mes :

For i = 2 to #1

For j = 2 to #2

qui sont à la suite? Ou pour ca je me sers de ce que VBA New m'a donné?

Merci en tout cas

Bonjour à tous,

Non c'est bon tu n'as plus rien à faire ! Tu peux supprimer tes :

For i = 2 to #1
For j = 2 to #2