ça serais merveilleux si vous pouvais m'aidiez dans mon problème, que j'essaie de l'expliquer ci après:
Alors,Dans le tableau aller vers la première cellule vide d’une colonne donnée dans mon cas la colonne A
Après remplir les donnée (dans cette cellule) et calculer les colonnes B et C en fonction du contenu de la colonne A
J'ai arrivé à régler le premier problème mes je n'arrive pas à calculer B et C en fonction de A avant de passer à la prochaine cellule vide.
Dim pcs_A as long
Dim fin_A as long
fin_A = Range("A65536").end(xlup).row
for pcs_A = 1 to fin_A
Range("B" & cstr(pcs_A)).value = Range("A" & cstr(pcs_A)).value + 1
Range("C" & cstr(pcs_A)).value = Range("A" & cstr(pcs_A)).value - 2
next pcs_A
En formule:
- En B1: =A1+1
- En C1: =A1-2
Et tu déroules.
je reviens sur la même discussion après tout ce temps parce ce que j'ai pas bien su vous expliquer mon soucis dont j’essayerai de le ré-expliquer pas par pas:
alors tous d'abord je voudrai que vous sachiez que mon classeur contient un très grand nombre de lignes;
alors je cherche comment déclencher une procédure de calcule lors de changement du contenue d'une cellule d'une colonne donnée( généralement la cellule est vide et on la remplis)
le calcule se fait en fonction du contenue taper et que pour la ligne en cours
Essaye le code ci-dessous, à placer dans le module de ta feuille:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If IsNumeric(Target.Value) Then
Cells(Target.Row, 2).Value = Target.Value + 1
Cells(Target.Row, 3).Value = Target.Value - 2
End If
End If
End Sub
Le code teste si la colonne de la cellule modifiée est la colonne A.
Puis teste si la valeur est numérique.
Si oui dans les deux cas, en colonne B => A + 1, en colonne C => A - 2
Pour le plaisir de croiser Odoreth et pour honorer mes endives
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 1 Then
If IsNumeric(.Value) Then
Cells(.Row, 2).Value = .Value + 1
Cells(.Row, 3).Value = .Value - 2
End If
End If
End With
End Sub
et pour signaler que si on fait une recopie vers le bas en colonne A, le calcul ne se fait sur la première cellule uniquement.