Selection de ligne dans tableau. Résolu/Fermé

Question

Bonjour, 
Comment dans un tableau range (« J1 :Q24 »), puis-je sélectionner les lignes une par une pour les soustraire aux cellules d'une colonne range (« T1 :T24 ») ?
Par exemple, sélectionner la ligne 1 (« J : Q ») soustraire le total de la cette zone à la cellule (« T1 »)  
Ensuite, sélectionner la ligne 2 (« J : Q ») soustraire le total de la cette zone à la cellule (« T2 ») 
Etc. Etc. Etc.
En sachant que le tableau comporte des cellules vides.

Merci d'avance à celui qui répondra.



Configuration: Windows XP / Internet Explorer 8.0

charly_rom · Answer

=T1-SOMME(A1:Q1)
ensuite tu selectionne la cellule et ds l'encadrement en bas a droite de cette cellule, tu as un point, tu clique dessus et tu descent jusqu'a la derniere ligne et excel se charge de remplacer les 1 par les numero de ligne correspondant

jen_peplu · Answer

Bonsoir charly_rom,

Tu traites le tableau directement dans excel ?
Ce que je veux, c'est créer une macro. Il me faut arriver à sélectionner une ligne du tableau pour en connaitre la somme, ensuite déduire ce résultat d'une cellule en vis à vis plus loin dans une colonne, lorsque je saurai faire cela, je l'inserrerai dans une boucle, "For...Each", par exemple.

Merci.

jen_peplu · Answer

J'ai avancé dans ma réalisation mais je bloque sur une erreur incompatibilité de type  Erreur d'exécution "13 ".
Je sélectionne les cellules une par une dans mon tableau, puisque je n'arrive pas à le faire avec une ligne comme je le voulais au début du sujet, mais je n'arrive pas à les soustraire à la cellule en vis-à-vis dans la colonne concerné.
Je joins le code si quelqu'un peu m'aider...

Sub op()
Dim Quinc As Range
Dim cellule As Range
Dim sto As Range

Set sto = Range("Stock")                           `colonne ("T1:T24")
Set Quinc = Range("QuincaillesUtilises")    `zone (" J1 :Q24")

For Each cellule In Quinc
 If cellule.Value > 0 Then
  cellule.Select                                       `cellule > 0 dans " J1 :Q24" sélectionnée
   sto(cellule.row, sto.Column - 19).Select      `cellule dans " T1:T24" sélectionnée jusque là ça marche

   sto.Value = sto.Value - cellule.Value     `ici l'erreur est générée

 End If
Next cellule

Set Quinc = Nothing
Set sto = Nothing

End Sub 

Je cherche mais j'ai vraiment besoin d'aide...
Dans ma ligne < sto.Value = sto.Value - cellule.Value > "cellule.value" contient bien une valeur mais pas "sto.value", comment faire ?
Merci.

ccm81 · Answer

bonjour

peut être quelque chose comme ça

Const lideb = 1
Const lifin = 24
Const codeb = "J"
Const cofin = "Q"
Dim li As Long
For li = lideb To lifin
  Range("T" & li).Value = Range("T" & li).Value - Application.WorksheetFunction.Sum(Range(codeb & li & ":" & cofin & li))
Next li

bonne suite

michel_m · Answer

Bonjour

essaies si j'ai pigé ta demande

Option Explicit
Sub soustraire()
Dim lig As Byte
Application.ScreenUpdating = False
For lig = 1 To 24
Cells(lig, "T") = Cells(lig, "T") - Application.Sum(Range(Cells(lig, "J"), Cells(lig, "Q")))
Next
End Sub

jen_peplu · Answer

Bonjour ,

Je tiens à vous remercier, ccm81 et michel_m, pour vos réponses qui fonctionnent l'une comme l'autre.
Cela me permet de voir que l'on peut coder de différentes façons, et le savoir ne nuit pas.

Si je peux me permettre michel_m, ne faut-il pas mettre "Application.ScreenUpdating = True " quand la procédure est finie ?

Pourriez-vous me dire, si ce n'est trop, où est le problème dans ma procédure et comment aurais-je dû faire pour que mon opération se fasse, histoire d'en apprendre un peu plus ?

S'il n'y a pas de réponse d'ici quelques jours je signalerai résolu.

Merci à vous parce que je n'aurais pas trouvé de sitôt.

ccm81 · Answer

re

@ jen_peuplus

sto.Value = sto.Value - cellule.Value 'ici l'erreur est générée 

sto étant de type range, et contient une plage, contrairement à cellule, donc, je crois qu'il aurait fallu ecrire quelque chose du genre sto.Cells(ligne,colonne).value=sto.Cells(ligne,colonne).value - cellule.value

@michel_m
bonjour michel
pas de pb pour le rafraichissement, mais, confondre la forme et le fond .... 
je vais mettre ça sur le compte d'un début d'assoupissement post déjeunatoire ...
bon, j'arrete
merci pour le Cells(lig, "T"), je me suis toujours cru obligé d'envoyer à cells un n° (numérique) de colonne !
cordialement

jen_peplu · Answer

Merci pour vos réponses et votre disponibilité. Pendant que certains faisaient la sieste (consécutive à un début d'assoupissement post déjeunatoire), j'ai mis vos conseils en applications et cela m'a bien aidé (jusqu'à la prochaine question). 
Effectivement, ccm81, en adaptant la ligne "sto.Cells(ligne,colonne).value=sto.Cells(ligne,colonne).value - cellule.value" cela marche aussi parfaitement.
Vivement que je sache écrire comme vous...
Merci à vous deux
A+

Selection de ligne dans tableau.

8 réponses

Discussions similaires