Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

PB mémoriser cellules à l'aide d'une boucle VBA (résolu)

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion maude
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

maude

XLDnaute Nouveau
Bonjour messieurs dames,

je me lance pour mon premier post. Je me considère comme débutante + passionnée qui cherche à apprendre...

Dans un classeur excel j' ai une colonne (F6:F755) ou je renseigne des dates, ces dates changes avec le temps. J'ai besoin de mémoriser la première date qui a été saisie. J'ai donc fait cela...

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("F6").Value <> Range("B6") And Range("B6") = "" Then
Range("B6") = Range("F6").Value
End If
If Range("F7").Value <> Range("B7") And Range("B7") = "" Then
Range("B7") = Range("F7").Value
End If
...
...
End Sub

En gros, si F6 est différent de B6 et que B6 est vide alors B6 = F6 (peu être pas l'idéal mais ça fonctionne). Compte tenu du nombre important de ligne, j'ai voulue essayer de creer une boucle mais en vain...
voila un des codes essayés.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
Application.ScreenUpdating = False
For Each cell In Range("B6:B755")
If cell <> cell.Offset(0, 4).Value And cell <> "" Then
cell = cell.Offset(0, 4).Value
End If
Next
End Sub

le but est de mémoriser les valeur de la plage (F6:F755) dans les cellules (B6:B755) mais ça ne fonctionne pas.
le top serait que si une case (F6:F755) à été rempli puis le contenu supprimé, la valeur mémorisé en colonne B soit supprimé également

si quelqu'un est disposé à m'aider (même avec une logique autre)
merci par avance
Maude
 
Dernière édition:
Trier par date Trier par votes
Re : PB mémoriser cellules à l'aide d'une boucle VBA

Bonjour à tous

si F6 est différent de B6 et que B6 est vide alors B6 = F6
Cliquez pour agrandir...
Code: 
If cell <> cell.Offset(0, 4).Value And cell <> "" Then

dans le premier cas il faut Bx vide et dans le deuxième il faut Bx <> "" ????

s'il faut bien que B6 soit vide, modifier And cell <> "" en And cell = ""

et si B6 doit prendre la valeur de F6 il faut conserver cell = cell.Offset(0, 4).Value

A+
 
Vote positif 0 Vote négatif
Re : PB mémoriser cellules à l'aide d'une boucle VBA

Bonjour Paf,

il faut que B6 soit vide pour assurer que seul la première valeur peu etre "mémorisé" (si je ne met pas cette condition, la valeur de B6 prendra la valeur de F6 à chaque chgt de F6)
Du coup, si B6 est différent de F6 et que B6 est vide, alors il n'y a qu'une seule possibilité pour qu'il y est une valeur dans B6, ç'est que ce soit la première qui est été inscrite en F6... j'ai bon ???

du coup, j'ai essayé tes modifs et ça ne fonctionne pas...
merci beaucoup de ton aide
++
 
Vote positif 0 Vote négatif
Re : PB mémoriser cellules à l'aide d'une boucle VBA

Re,


Je ne comprend pas ce qui ne fonctionne pas ?

les modifs proposées répondent au besoin , après tests sur le classeur joint

Bonne suite
 
Vote positif 0 Vote négatif
Re : PB mémoriser cellules à l'aide d'une boucle VBA

ça marche vraiment...merci beaucoup...

juste un détail, comment supprimer la valeur en B si la valeur correspondante en F est supprimée ?

en tout cas merci beaucoup pour votre aide

++
 
Vote positif 0 Vote négatif
Re : PB mémoriser cellules à l'aide d'une boucle VBA

Re

a priori

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim cell As Range
 Application.ScreenUpdating = False
 Application.EnableEvents = False  ' désactive le déclenchement évènementiel
 For Each cell In Range("B6:B755")
    If cell <> cell.Offset(0, 4).Value And cell = "" Then
        cell.Value = cell.Offset(0, 4).Value
    End If
    If cell.Offset(0, 4).Value = "" Then
        cell = ""
    End If
 Next
 Application.EnableEvents = True
 Application.ScreenUpdating = True
End Sub

A+
 
Vote positif 0 Vote négatif
Re : PB mémoriser cellules à l'aide d'une boucle VBA

Alors là...je m'incline...
tu as juste fais en 5 min ce que j'ai pas réussi en 2 jours.

ton code fonctionne à merveille.

merci vraiment beaucoup à toi Paf (rigolo comme nom)

ps: il y a un truc à faire pour dire que le sujet est clos (genre "résolu") ?

++ messieurs
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 Réduction temps d'exécution boucle macro
Réponses
11
Affichages
355
TooFatBoy
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
246
nabilexcel2007
N
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
510
un internaute
U
X
  • Question Question
Microsoft 365 compte à rebours avec application.OnTime (Résolu)
Réponses
9
Affichages
207
xabino
X
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
342
un internaute
U
S
  • Question Question
Microsoft 365 VBA Action suivant le résultat d'une cellule
Réponses
7
Affichages
196
TooFatBoy
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
650
thunder23
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
963
tnion
T
F
  • Résolu(e)
Microsoft 365 Evènement worksheet_change
Réponses
2
Affichages
235
Francky79
F
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
456
spike29
S
J
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
446
jalaba
J
N
  • Résolu(e)
Microsoft 365 Calcul de plages horaires
2 3 4
Réponses
49
Affichages
2 K
NONO14
N
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
86
PRy
P
C
  • Résolu(e)
Autres Copier des données vers une nouvelle feuille excel VBA
2
Réponses
25
Affichages
1 K
Carolinebd
C
S
  • Résolu(e)
XL 2019 VBA automatiser hauteur de lignes
Réponses
7
Affichages
431
sofmat
S
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
1 K
Gestionnaire_rh
G
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
684
patricktoulon
  • Résolu(e)
Microsoft 365 VBA : Commentaire en B, C, D après clic droit dans n'importe quelle cellule de cette plage ?
2
Réponses
15
Affichages
606
Nicolas JACQUIN
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…