Transfert donné d'1e feuille à autrepr calcul
Bird
-
Bird007 Messages postés 12 Statut Membre -
Bird007 Messages postés 12 Statut Membre -
Bonjour,
Mon travail consiste à faire une boucle
J'ai une feuille qui contient les reel du CA, et CA est lié à un code analytique
Alors que dans une 2 ème feulle j'ai programmé sur excel de calculer des prevsion en se basant sur le code analytique renseigné dans une cellule
Ce que je veux faire à travers ma boucle, c'est de dire à chaque fois que je change mon code analytique, mon tableau de prevsion s'alimente automatiquement par le réel des donné correspondant au même code
J'ai essayé plusieurs alternatives et aucune ne marche
Merci de m'aider
Mon travail consiste à faire une boucle
J'ai une feuille qui contient les reel du CA, et CA est lié à un code analytique
Alors que dans une 2 ème feulle j'ai programmé sur excel de calculer des prevsion en se basant sur le code analytique renseigné dans une cellule
Ce que je veux faire à travers ma boucle, c'est de dire à chaque fois que je change mon code analytique, mon tableau de prevsion s'alimente automatiquement par le réel des donné correspondant au même code
J'ai essayé plusieurs alternatives et aucune ne marche
Merci de m'aider
A voir également:
- Transfert donné d'1e feuille à autrepr calcul
- Calcul km marche à pied gratuit - Télécharger - Sport
- Comment imprimer en a5 sur une feuille a4 - Guide
- France transfert - Guide
- Feuille de pointage - Télécharger - Tableur
- Clémence souhaite faire calculer automatiquement les prix de 30 produits dans trois devises. elle a déjà saisi une formule de calcul pour le tarif du premier produit dans la première devise. corrigez sa formule afin que recopiée vers le bas puis vers la droite, elle remplisse correctement tout le tableau. - Forum Excel
2 réponses
Bonjour, c moi encore une fois
J'ai essayé avec ca ms ca n'a pas marché
Sub calcul_prevision()
Dim CA_feuil1 As String
Dim CA_feuil2 As String
Dim CPT As String
CPT = 10
CA_feuil1 = Sheets("CA(PS)").Range("B2").Value
CA_feuil2 = Sheets("Calcul_prevision(PS)").Range("C10").Value
Do Until CAf_euil1 = CA_feuil2
CPT = CPT + 1
CA_feuil1 = Sheets("Calcul_prevision(PS)").Range(CPT, 3)
Loop
Sheets("CA(PS)").Range "(CPT,7):(30,CPT)"
Selection.Copy
Sheets("Calcul_prevision(PS)").Select
Range("B9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("CA(PS)").Select
End Sub
aidezmoi SVP
J'ai essayé avec ca ms ca n'a pas marché
Sub calcul_prevision()
Dim CA_feuil1 As String
Dim CA_feuil2 As String
Dim CPT As String
CPT = 10
CA_feuil1 = Sheets("CA(PS)").Range("B2").Value
CA_feuil2 = Sheets("Calcul_prevision(PS)").Range("C10").Value
Do Until CAf_euil1 = CA_feuil2
CPT = CPT + 1
CA_feuil1 = Sheets("Calcul_prevision(PS)").Range(CPT, 3)
Loop
Sheets("CA(PS)").Range "(CPT,7):(30,CPT)"
Selection.Copy
Sheets("Calcul_prevision(PS)").Select
Range("B9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("CA(PS)").Select
End Sub
aidezmoi SVP
