VBA Incrémentation Auto pas de 2

[Regueiro]

Bonjour à Tous
Voici mon problème actuel :


Si je change D2 par exemple 10 alors incrémentation
automatique en colonne B5 à B variable
avec pas de 2
Si D2 vide alors Incrémentation = vide

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$2" And Target.Count = 1 Then


End If
End Sub

Merci de votre Aide.
A+

 

[phlaurent55]

Re : VBA Incrémentation Auto pas de 2

Bonjour Regueiro,

un essai en pièce jointe

à+
Philippe

 

[Regueiro]

Re : VBA Incrémentation Auto pas de 2

Merci pour ta réponse.
c'est parfait, je cherche également la variante en VBA ?
À+

 

[phlaurent55]

Re : VBA Incrémentation Auto pas de 2

Re,

voir fichier joint
il est nécessaire d'activer les macros

à+
Philippe

 

[Regueiro]

Re : VBA Incrémentation Auto pas de 2

Merci Philippe.
Pourrais-tu me commenter le code svp.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D2")) Is Nothing Then

Range("B5:B" & Range("B65535").End(xlUp).Row + 1).ClearContents
'Variable i = 0 à valeur de "D2"
For i = 0 To Target
'????
Cells(5 + i * 2, 2) = i
Next i

End If
End Sub

Merci A+

 

[tototiti2008]

Re : VBA Incrémentation Auto pas de 2

Bonjour à tous,

Voici la version commentée

'Sur changement de valeur d'une cellule de la feuille
Private Sub Worksheet_Change(ByVal Target As Range)
'Target représente la cellule dont on a changé la valeur
If Not Intersect(Target, Range("D2")) Is Nothing Then
'Si Target = D2
Range("B5:B" & Range("B65535").End(xlUp).Row + 1).ClearContents
'Variable i = 0 à valeur de "D2"
For i = 0 To Target
'On fait évoluer le compteur i de 0 à la valeur de D2 (par pas de 1)
Cells(5 + i * 2, 2) = i
'Dans la colonne B, on se place dans la ligne 5 + i * 2 pour y écrire la valeur de i
'Exemple : i = 0 => 5 + i * 2 = 5 : on écrit 0 en B5
'i = 1 => 5 + i * 2 = 7 : on écrit 1 en B7
'i = 2 => 5 + i * 2 = 9 : on écrit 2 en B9
'etc...
Next i

End If
End Sub

 

[Regueiro]

Re : VBA Incrémentation Auto pas de 2

Bonsoir à Tous
Tototiti2008
Merci pour les explications.
Je vous joint mon fichier en PJ.
Voir sur la Feuille ESSAI
En fait cette formule me sert à alimenter mon graphique escalier.
Mais j'ai un problème de mise à jour de mon graphique.
Explication : si je 10 marches OK
Si je mais 8 marches le graphique ne se mets pas à jour.
J'ai regardé avec une un nom de champ dynamique mais 😡
Merci de votre Aide
A+

 

[phlaurent55]

Re : VBA Incrémentation Auto pas de 2

Re,

voici, il y avait des erreurs concernant la plages nommées qui faisaient parfois référence à l'autre feuille

à+
Philippe

 

[Regueiro]

Re : VBA Incrémentation Auto pas de 2

Bonjour à tous
Phlaurent55, merci pour ton aide.
Je vous joint mon fichier :
Je dois remplir mes données en D12:E12 en VBA.
J'arrive pour les données en D12 vers le bas Ok
Par contre pour les données en E12 OK, mais E13 erreur devrait donné 20 si 10 en F30
Merci de votre Aide
A+

 

[phlaurent55]

Re : VBA Incrémentation Auto pas de 2

Re,

avec ceci en ce qui concerne la dernière boucle

z = Target.Offset(1, 0)
For i = 0 To Target
Cells(12 + i * 2 - 1, 5) = z * i
Cells(13 + i * 2 - 1, 5) = z * i
Next i

Ayant travaillé dans une fabrique d'escalier pendant 8 ans, je ne vois pas à quoi va servir ce fichier

à+
Philippe

 

[phlaurent55]

Re : VBA Incrémentation Auto pas de 2

Re,

ceci est mieux:

Dim z As Integer
z = Target.Offset(1, 0)
For i = 1 To Target
Cells(12 + i * 2 - 1, 5) = z * i
Cells(13 + i * 2 - 1, 5) = z * i
Next i
[E12] = 0

à+
Philippe

 

[Regueiro]

Re : VBA Incrémentation Auto pas de 2

Re
Merci pour le code.
Concernant le fichier, c'est pour me passer le temps.
Non en fait j'aimerais récupérer dans mon graphique ou sur des cellules,
la longueur de la barrière, l'angle, etc.
Vu que tu as été le métier ( charpentier ou constructeur métallique )
As-tu une éventuelle apllication en VBA ou Excel avec Formule.
Merci
A+

 

[phlaurent55]

Re : VBA Incrémentation Auto pas de 2

Re,

voici pour l'angle de découpe des fuseaux

à+
Philippe