2326 résultats trouvés

par xorsankukai
9 mai 2020, 20:36
Forum : Excel - VBA
Sujet : Copier une plage de cellule selon données d'un autre
Réponses : 9
Vues : 71

Re: Copier une plage de cellule selon données d'un autre

Re, Merci pour ton retour, :) quel serait le code pour que les cellules feuil2 ne s'effacent pas si A2 est vide ? Il faut supprimer: Sheets("Feuil2").Range("B4:B15").ClearContents: quel serait le code pour la même chose mais que la copie se fasse sur un autre classeur ? Un exemple: Private Sub Works...
par xorsankukai
9 mai 2020, 16:55
Forum : Excel - VBA
Sujet : Remplacer du texte par une valeur
Réponses : 9
Vues : 39

Re: Remplacer du texte par une valeur

Bonjour U. Milité,

Je me disais bien qu'il y avait plus simple, pourquoi me suis-je compliqué la vie ainsi, :...:
Bien vu, :appl:

Cordialement,
par xorsankukai
9 mai 2020, 16:50
Forum : Excel - VBA
Sujet : Remplacer du texte par une valeur
Réponses : 9
Vues : 39

Re: Remplacer du texte par une valeur

Re, Mais je me dis qu'il y a surement nécessité de faire appel à un petit tableau de références comme tu l'as mis en bas. Un truc dans ce genre, avec une feuille paramètres que tu pourras masquer.... Classeur221.xlsm Ceci dit, je ne suis pas un expert en formules (ni vba d'ailleurs, :P ), il y a peu...
par xorsankukai
9 mai 2020, 16:16
Forum : Excel - VBA
Sujet : Remplacer du texte par une valeur
Réponses : 9
Vues : 39

Re: Remplacer du texte par une valeur

Bonjour Mervin, le forum,

Un essai avec un tableau de correspondance et une ligne supplémentaire (tu peux les masquer).
Copie de Classeur221.xlsm
(10.75 Kio) Téléchargé 4 fois

Cordialement,
par xorsankukai
9 mai 2020, 15:05
Forum : Excel - VBA
Sujet : Copier une plage de cellule selon données d'un autre
Réponses : 9
Vues : 71

Re: Copier une plage de cellule selon données d'un autre

Re, Je crois que je viens de comprendre...... Un truc du genre.... Private Sub Worksheet_Change(ByVal Target As Range) Dim plage As Range Application.ScreenUpdating = False If Not Application.Intersect(Target, Range("A2")) Is Nothing Then If Target.Value = "" Then Sheets("Feuil2").Range("B4:B15").Cl...
par xorsankukai
9 mai 2020, 14:31
Forum : Excel - VBA
Sujet : Annuler l'action d'un bouton
Réponses : 4
Vues : 30

Re: Annuler l'action d'un bouton

Bonjour ArTcOhh , le forum, Peut-être ainsi..... Private Sub CommandButton3_Click() If MsgBox("Etes-vous sur de vouloir effacer le formulaire ?", vbYesNo, "Effacer le formulaire") = vbYes Then Range("L8,L10,O8,O10,S8:S11,L15:L16,L20:L25,O20:O24,L39,R39,L42:L45,O42:O43,L48:L58,O57:O58").ClearContents...
par xorsankukai
9 mai 2020, 14:21
Forum : Excel - VBA
Sujet : Fonction si et ou
Réponses : 2
Vues : 28

Re: Fonction si et ou

Bonjour chiquito83, le forum,

Un essai en E2 à tirer vers le bas...
=SI(ET(A2<>"";OU(A2<1500;A2>3000);ET(B2="";C2=""));"OUI";SI(ET(A2<>"";OU(A2<1500;A2>3000);OU(B2<>"";C2<>""));"NON";""))
Cordialement,
par xorsankukai
9 mai 2020, 13:51
Forum : Excel - VBA
Sujet : EXCEL 2010 - Recherche V dans plusieurs onglets
Réponses : 3
Vues : 51

Re: EXCEL 2010 - Recherche V dans plusieurs onglets

Bonjour Limpiencka26, 78chris (°v°)° , le forum,

Un essai en VBA, la macro se déclenche à l'activation de la feuille Synthese....
Utilisation de la fonction Somme.Si ...

La proposition de 78chris étant bien entendu à privilégier car plus viable, :)
Exemple.xlsm
(21.98 Kio) Téléchargé 4 fois
Cordialement,
par xorsankukai
9 mai 2020, 13:38
Forum : Excel - VBA
Sujet : Recherchev à partir d'un texte
Réponses : 2
Vues : 32

Re: Recherchev à partir d'un texte

Bonjour Glark, le forum,
Capture.JPG
https://www.excel-pratique.com/fr/fonctions/index_equiv

Cordialement,
par xorsankukai
9 mai 2020, 13:30
Forum : Excel - VBA
Sujet : Copier une plage de cellule selon données d'un autre
Réponses : 9
Vues : 71

Re: Copier une plage de cellule selon données d'un autre

Bonjour BONNEGO , le forum, Pas sur d'avoir compris, mais à priori pas besoin de macro.... Si Feuil2!A3:A15 doit toujours correspondre à Feuil1!L3:L15 , i l suffit de lier les cellules avec une formule.... En A3 : =Feuil1!L3 à tirer vers le bas jusqu'à A15 Si tu modifies tes valeurs sur la feuille 1...