Réutiliser variable mise dans une cellule pour soustraction

Bonjour,

Après plusieurs essais je cherche toujours une solution du comment réutiliser mes variables si je les stock dans une cellule ?

en effet je stock toutes les valeurs de lignes blanches dans ma variable cette variable est a chaque fois copiée dans une cellule et je voudrais réutiliser cette valeur pour soustraire la suivante avec la premiere.

pour faire stepval = valA2 - valA1

j'ai écris ceci mais je bloque sur comment introduire les valeur dans mes variables , peut être y a t il une subtilité ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

Sub def()   Dim line As Range Dim sheet As Worksheet Dim row As Long Dim stepVal As Long Dim val1, val2 As Long   row = 0   Set sheet = Sheet1 Sheet2.Cells.Clear t = 1 bot = 0   For bot = 1 To Sheet1.UsedRange.Rows.Count Step 2   Set line = sheet.Rows(bot) If WorksheetFunction.CountA(line) = 0 Then 'MsgBox "line BOT" & bot & " is empty"   Sheet2.Cells(t, 1).Value = bot     t = t + 1   val1 = Sheet2.Cells(t + 1, 1).Value val2 = Sheet2.Cells(t, 1).Value   'val1 = Sheet(Sheet2).Range("A1 + 1").Select 'val2 = Sheet(Sheet2).Range("A1").Select     stepVal = val1 - val2   End If       Sheet2.Cells(t, 2).Value = stepVal Next bot     End Sub

---

Merci d'avance pour votre aide

Bonjour Alex, bonjour le forum,

Je ne comprends pas grand chose à ton code !?...
Tu parles de stocker toutes les variables dans des cellules mais ton code ne fait pas cela. Il récupère dans les variables val1 et val2 les valeurs respectivement des cellules Sheet2.Cells(t + 1, 1) et Sheet2.Cells(t, 1) et stocke dans la cellule Sheet2.Cells(t, 2) la variable stepVal. Cela a près avoir incrémenter t avec t = t + 1. Est-ce normal ?
Pourrais-tu être plus clair dans les explications de ta macro.

Bonjour Thautheme,

Je vais essayer d eter plus clair , En input j utilise mon premier classeur qui contient plusieurs définition de flux générallement codées sur une 40 aines de lignes malheureusement en fonction , des attributs le nombre de ligne peut changer , c'est pourquoi je teste le fichier et extrait chaque numero de ligne qui est vide

donc dans mon sheet 2 j ai quelque chose du genre dans ma colonnes A

Code:

---

1 2 3 4 5 6 7 8 9 10

43 87 131 175 219 263 307 351 395

---

ce que je veux faire c est compter le nombre de lignes que la définition contient en soustrayant la 2 eme valeur a la premiere donc ici la premiere definition contient 44 Lignes

et je voudrais m en servir comme variable pour ma boucle de trsposition pour le remettre en format ligne transformable en CSV :)

je ne sais pas si ja i été plus clair mais si il faut je peux partager un exemple d input

merci deja pour ta réaction

En fait je ne comprends tout simplement pas pourquoi une fois mon sheet rempli je n'arrive pas à réutiliser la valeur de mes cellules,


et val1 = Sheet2.Cells(A & i + 1).Value me semble la façon adéquate d aller rechercher l'info

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub sous()   Dim i As Long Dim fin As Long Dim val1 As Long Dim val2 As Long Dim col As Long Dim stepVal As Long   fin = Range("A1")     For i = 1 To fin   val1 = Sheet2.Cells(A & i + 1).Value val2 = Sheet2.Cells(A & i).Value   stepVal = val1 - val2   MsgBox "StepVal" & stepVal & " "   Sheet2.Cells(c & i).Value = stepVal   Next i

---

Re,

Tu confonds les syntaxes Range("A" & 1) et Cells(1, "A") et dans les deux cas la colonne A doit avoir des guillemets...
Je n'ai toujours pas compris ton code mais voici le second corrigé, si ça peut t'aider :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub sous() Dim fin As Long Dim i As Long Dim val1 As Long Dim val2 As Long Dim stepVal As Long   fin = Range("A1") 'si A1 contient un nombre entier sinon : fin = Sheet2.Cells(Application.Rows.Count,"A").end(xlUp).Row For i = 1 To fin val1 = Sheet2.Cells(i + 1, "A").Value val2 = Sheet2.Cells(i, "A").Value stepVal = val1 - val2 MsgBox "StepVal" & stepVal & " " Sheet2.Cells(i, "C").Value = stepVal Next i End Sub

---

Bonjour à tous,

Je me suis permis de corrigé ton code qui devrai fonctionner maintenant à condition d'ouvrir la bonne feuille avant

j'ai saisi tes valeurs données à titre d'exemple de ton post (N°3) dans une feuille en colonne A

Perso je n’aime pas les lettres représentant les colonnes avec l'objet cells. Normalement la syntaxe est : Cells(N°ligne, N°de colonne)
cet objet est fait pour passer d'une colonne à une autre sans peine car avec les lettres c'est franchement pas simple
Et dans l'aide en ligne c'est pareil

Vraiment VBA est permissif :evil:

Je te laisse mettre le paramétrage des feuilles en automatique

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub sous()   Dim i As Long Dim Der_Lign As Long Dim val1 As Long Dim val2 As Long Dim col As Long Dim stepVal As Long   Der_Lign = [A2].End(xlDown).Row   For i = 1 To Der_Lign   val1 = Cells(i + 1, 1).Value val2 = Cells(i, 1).Value   stepVal = val1 - val2   MsgBox "StepVal : " & stepVal & " " Cells(i, 3).Value = stepVal   Next i   End Sub

---

Bonjour le fil, bonjour le forum,

Citation:

---

Envoyé par Igloobel

Perso je n’aime pas les lettres représentant les colonnes avec l'objet cells. Normalement la syntaxe est : Cells(N°ligne, N°de colonne)
cet objet est fait pour passer d'une colonne à une autre sans peine car avec les lettres c'est franchement pas simple

---

Moi non plus !... Je "plussoie" ta remarque mais c'est bien pratique pour cibler une cellule sans avoir à passer par l'affichage L1C1 (sinon je compte encore sur mes doigts). En revanche, quand j'utilise la colonne dans une variable je garde bien évidement sa valeur en chiffre...

merci a vous tous

j ai fini par changer ma methode voici une solution qui fonctionne

Avec ma premiere macro je defini le début et la fin de chaque bloc dans mon sheet 1

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub test()     Dim line As Range Dim sheet As Worksheet Dim row As Long Dim ligne As Long Dim t, p, n As Long Dim col As Long col = 4   p = 1   Set sheet = Sheet1 Sheet2.Cells.Clear   For i = 1 To Sheet1.Cells(Application.Rows.Count, col).End(xlUp).row     If Sheet1.Cells(i, "D").Value <> "" Then Sheet2.Cells(p, "A").Value = i Do i = i + 1 Loop While Sheet1.Cells(i, "D").Value <> "" Sheet2.Cells(p, "B").Value = i - 1 p = p + 1 End If Next i End Sub

---

Avec la 2 eme je reecris les infos qui se trouvent dans les intervalles défini par la macro 1 dans le sheet3 sous forme de lignes

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub defi() Dim col As Long Dim x As Long Dim test   x = 1 Sheet3.Cells.Clear   Do debut = Sheet2.Cells(x, "A").Value fin = Sheet2.Cells(x, "B").Value col = 1   For Y = debut To fin     Sheet3.Cells(x, col).Value = Sheet1.Cells(Y, 4).Value     col = col + 1     Next Y x = x + 1 Loop While Sheet2.Cells(x, "A").Value <> 0 End Sub

---

Bref un tout grand merci pour votre temps ca m en a fait gagner énormément :)


PS: Désolé j'ai encore laissé les colones en lettre :/