Microsoft 365 Alleger un code VBA

Bonsoir,

Je te laisse tester ceci
Cela produit-il l'effet escompté ?
Ey si oui, constates des effets négatifs annexes?

Re

Une version un peu plus synthétique

Staple1600 à dit:

Bonsoir,

Je te laisse tester ceci

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B7:B54")) Is Nothing Then
If Len(Target) Then
Target = ""
Cells(Target.Row, "H") = ""
Cells(Target.Row, "J") = ""
Cells(Target.Row, "L") = ""
End If
End If
End Sub

Cela produit-il l'effet escompté ?
Ey si oui, constates des effets négatifs annexes?

Cliquez pour agrandir...

merci beaucoup c'est beaucoup plus réactif, seul petit soucis c'est que quand je sélectionne la cellule ou y a le nombre que j'aimerais enlever la cellule s'efface directement avant même que je vide manuellement la cellule

Re

Tu veux effacer le contenu de la cellule que tu sélectionnes, non ?
C'est ce que le code VBA proposé
(en effaçant en même temps les cellules H, J, L de la même ligne

Une version encore plus courte et radicale

Staple1600 à dit:

Re

Tu veux effacer le contenu de la cellule que tu sélectionnes, non ?
C'est ce que le code VBA proposé
(en effaçant en même temps les cellules H, J, L de la même ligne

Une version encore plus courte et radicale

VB:

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If Not Intersect(T, Range("B7:B54")) Is Nothing Then
Union(T, T.Offset(, 6), T.Offset(, 8), T.Offset(, 10)) = ""
End If
End Sub

Cliquez pour agrandir...

pardon je me suis peut être mal exprimer, je souhaiterais que les cellule H, J, L s'efface une fois que j'ai vider la cellule B manuellement, sinon la c'est trop radical quand même

Staple1600 à dit:

Re

Et avec celle-ci ?
NB: au préalable, il faut supprimer la macro Selection_Change()

VB:

Private Sub Worksheet_Change(ByVal T As Range)
If Not Intersect(T, Range("B7:B54")) Is Nothing Then
If IsEmpty(T) Then
Union(T.Offset(, 6), T.Offset(, 8), T.Offset(, 10)) = ""
Else
Exit Sub
End If
End If
End Sub

Cliquez pour agrandir...

Helllo !

ça fonctionne parfaitement je te remercie beaucoup

Bonsoir

Je dirais que cela fonctionne oui.
Mais pas parfaitement
Tu verras à l'usage qu'il pourra y avoir ou pas des effets de bord

Staple1600 à dit:

Bonsoir

Je dirais que cela fonctionne oui.
Mais pas parfaitement
Tu verras à l'usage qu'il pourra y avoir ou pas des effets de bord

Cliquez pour agrandir...

Le seul petit truc que j’ai remarquer, c’est juste une sorte de décalage de suppression dés cellules, mais rien de bien méchant

Re

Et il se passe quoi si tu sélectionnes plusieurs cellules de la colonne B ?
Si tu supprimes la colonne B
Si tu fais un copier/coller dans la colonne B
etc...

C'est que j'appelle des effets de bord.

Est ce que tu serais par hasard également me coder un petit truc qui sûrement sera facile pour toi. j’ai une base de donnée avec plein de devis sur chaque ligne j’ai le numéro de devis en colonne À et ensuite j’ai l’adresse, le nom de la personne et le montant et j’ai une une cellule qui s’appel en cours en cellule D et quand un devis et adjugé j’écris manuellement « validé » et si il est refusé j’écris « refuser » manuellement très basique. Mais je dois chaque fois aller rechercher le devis en question parmi plein d’autre et j’aimerais automatiser ça

J’aimerais créer une macro toute simple avec un bouton

Exemple j’écris le numéro du devis dans une cellule et à côté, j’aurai le bouton, je clique sur le bouton et il m’écrit automatiquement validé dans la bonne cellule en fonction du numéro de devis taper préalablement et je recommence avec un autre devis

Et si il est refusé j’aurai le même bouton mais qui écrit refusé

Il faudrai d’après ce que j’ai pu lire que je puisse mettre une sorte de fonctions de recherchv qui va chercher le numéro du devis pour ensuite coller le mot « validé » dans la bonne cellule en tant que valeur fixe. Mais je suis nul en vba malheureusement est ce que tu pourrait m’aider

Staple1600 à dit:

Re

Et il se passe quoi si tu sélectionnes plusieurs cellules de la colonne B ?
Si tu supprimes la colonne B
Si tu fais un copier/coller dans la colonne B
etc...

C'est que j'appelle des effets de bord.

Cliquez pour agrandir...

alors si je supprime la colonne B, il ne se passe rien ça n'efface pas les autre ligne

si je fais un copier coller d'une cellule ou de plusieurs, c'est ok par contre si je sélectionne plusieurs cellule B en même temps et que je vide les cellule la par contre, ça ne vide pas les autre cellule, mais je ne vais jamais vider plusieurs cellule en même temps donc pour moi ton code et vraiment tir top a mon usage

Re

La Charte¸ dans son habit de lumière à dit:

2.3 – Le titre de la question doit être clair et comporter explicitement le sujet de la demande. Cela sous-entend qu’une nouvelle demande fait l’objet d’un nouveau fil.

Cliquez pour agrandir...

Donc tu sais ce qu'il te reste à faire

Staple1600 à dit:

Re



Donc tu sais ce qu'il te reste à faire

Cliquez pour agrandir...

Oups j’ai pas vu que j’avais poster dans le fil je vais créer un nouveau sujet )