Formule excel s'ajustant date du jour (ou vba
Résolu/Fermé
Co_nexion
Messages postés
328
Date d'inscription
lundi 5 mars 2012
Statut
Membre
Dernière intervention
15 juillet 2015
-
Modifié par Co_nexion le 4/06/2012 à 19:32
Co_nexion Messages postés 328 Date d'inscription lundi 5 mars 2012 Statut Membre Dernière intervention 15 juillet 2015 - 11 juin 2012 à 12:05
Co_nexion Messages postés 328 Date d'inscription lundi 5 mars 2012 Statut Membre Dernière intervention 15 juillet 2015 - 11 juin 2012 à 12:05
A voir également:
- Formule excel s'ajustant date du jour (ou vba
- Formule excel - Guide
- Liste déroulante excel - Guide
- Formule excel si contient texte alors texte ✓ - Forum Excel
- Formule de politesse mail anglais - Guide
- Iphone 14 date de sortie - Guide
3 réponses
Co_nexion
Messages postés
328
Date d'inscription
lundi 5 mars 2012
Statut
Membre
Dernière intervention
15 juillet 2015
4 juin 2012 à 19:41
4 juin 2012 à 19:41
Voici un fichier exemple avec un essai de formule infructueux.
Merci de votre retour
https://www.cjoint.com/?BFetOI9a2Rn
Merci de votre retour
https://www.cjoint.com/?BFetOI9a2Rn
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
5 juin 2012 à 16:50
5 juin 2012 à 16:50
Bonjour,
En VBA
Code a mettre dans la feuille
Bonne suite
En VBA
Code a mettre dans la feuille
'Principe, ajoutez la boucle pour toutes les lignes
Private Sub xWorksheet_SelectionChange(ByVal Target As Range)
If Range("I1") < Range("N1") Then
Range("G1") = Range("I1") + 1
Range("I1") = Range("G1") + Range("H1")
End If
End Sub
Bonne suite
Co_nexion
Messages postés
328
Date d'inscription
lundi 5 mars 2012
Statut
Membre
Dernière intervention
15 juillet 2015
11 juin 2012 à 10:51
11 juin 2012 à 10:51
Bonjour,
Je ne suis toujours pas au point au niveau des boucles...
J'ai essayer de faire cela mais il me semble que c'est du grand n'importe quoi...
Je ne suis toujours pas au point au niveau des boucles...
J'ai essayer de faire cela mais il me semble que c'est du grand n'importe quoi...
Private Sub xWorksheet_SelectionChange(ByVal Target As Range)
Dim Derlig As Long, i As Long,
Derlig = Range("G" & Rows.Count).End(xlUp).Row
With Sheets("HS")
'If Range("I2") < Range("M1") Then
For i = 2 To Derlig
If .Cells(i, 9) < .Cells(1, 13) Then
'Range("G2") = Range("I2") + 1
.Cells(i, 7) = .Cells(i, 9) + 1
'Range("I2") = Range("G2") + Range("H2")
.Cells(i, 9) = .Cells(i, 7) + Cells(i, 8)
End If
Next i
End Sub
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
Modifié par f894009 le 11/06/2012 à 11:26
Modifié par f894009 le 11/06/2012 à 11:26
Bonjour,
Je regarde ce qui ne va pas. Par contre il fallait enlever le x devant Worksheet_.......
Je regarde ce qui ne va pas. Par contre il fallait enlever le x devant Worksheet_.......
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
11 juin 2012 à 11:36
11 juin 2012 à 11:36
Re,
Cela devrait aller.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Derlig As Long, i As Long
With Sheets("HS")
Derlig = .Range("G" & Rows.Count).End(xlUp).Row
For i = 2 To Derlig
'If .Range("I" & i) < .Range("M" & i) Then
' ou
If .Cells(i, 9) < .Cells(1, 13) Then
.Range("G" & i) = .Range("I" & i) + 1
' ou
'.Cells(i, 7) = .Cells(i, 9) + 1
.Range("I" & i) = .Range("G" & i) + .Range("H" & i)
' ou
'.Cells(i, 9) = .Cells(i, 7) + .Cells(i, 8)
End If
Next i
End With
End Sub
Cela devrait aller.
Co_nexion
Messages postés
328
Date d'inscription
lundi 5 mars 2012
Statut
Membre
Dernière intervention
15 juillet 2015
11 juin 2012 à 12:05
11 juin 2012 à 12:05
Merci bien
Cela marche nickel !
J'ai simplement du déplacer le code dans sur l'évènement click du button dans le userform en question car cela m'affichait un probleme avec le code dans la feuille.
Cordialement
Cela marche nickel !
J'ai simplement du déplacer le code dans sur l'évènement click du button dans le userform en question car cela m'affichait un probleme avec le code dans la feuille.
Cordialement
5 juin 2012 à 15:37
Cela serait bien pour savoir si je dois m'orienter vers autre chose
Merci d'avance