Autres multiple

chilo · 29 Octobre 2019

Bonjour le forum
je sollicite votre aide pour solutionner un petit problème
Je souhaite trouver u multiple d'un nombre en vba excel 2007

La ligne A va de 1 à plus de 600000
Les recherches effectuées ne répondent pas au résultat souhaité
alors j'ai simplement pensé à vous
je vous remercie par avance pour l'aide
Bonne journée

xUpsilon · 29 Octobre 2019

Bonjour,

Je ne comprends pas ce que tu souhaites.
Tout d'abord A est une colonne pas une ligne, parle t'on de la meme chose ?
Ensuite, que cherches tu ? Voici un exemple de ce que j'ai compris : liste 3 12 42 49 55 70, tu cherches le nombre de multiples de 7, ça va te renvoyer 3 car il y a 3 multiples de 7 dans la liste. Est-ce que c'est ça que tu souhaites faire ?

Bonne continuation

chilo · 29 Octobre 2019

xUpsilon à dit:
Bonjour,

Je ne comprends pas ce que tu souhaites.
Tout d'abord A est une colonne pas une ligne, parle t'on de la meme chose ?
Ensuite, que cherches tu ? Voici un exemple de ce que j'ai compris : liste 3 12 42 49 55 70, tu cherches le nombre de multiples de 7, ça va te renvoyer 3 car il y a 3 multiples de 7 dans la liste. Est-ce que c'est ça que tu souhaites faire ?

Bonne continuation

Bonsoir le forum, Bonsoir Upsilon

Effectivement Je voulais dire Colonne A

Ce que je souhaite, en colonne de 1 a près de 550000

de cette colonne, je voudrais trouver un multiple quelconque en fonction du besoin
Par exemple un multiple de 1802 ou 1500
avec excel 2007

Merci

job75 · 29 Octobre 2019

Bonsoir chilo, xUpsilon,

Cette formule matricielle donnera le numéro de ligne du 1er multiple de 1082 différent de zéro :

VB:

=EQUIV(1;(A1:A1000000<>0)*NON(MOD(A1:A1000000;1082));0)

A valider par Ctrl+Maj+Entrée.

Bien sûr on peut remplacer 1082 par la référence d'une cellule.

A+

chilo · 30 Octobre 2019

chilo à dit:
Bonsoir le forum, Bonsoir Upsilon

Effectivement Je voulais dire Colonne A

Ce que je souhaite, en colonne de 1 a près de 550000

de cette colonne, je voudrais trouver un multiple quelconque en fonction du besoin
Par exemple un multiple de 1802 ou 1500
avec excel 2007

Merci

Merci bien JB
Je vais l'essayeer
et je reviens
merci

chilo · 30 Octobre 2019

chilo à dit:
Merci bien JB
Je vais l'essayeer
et je reviens
merci

Rebonsoir JOB75

Désolé Job75, je t'ai appelé JB, par réflexe j'ai un ami que j'appelle JB

J'ai essayé mais j'ai un N/A qui s'affiche

Par contre j'ai trouvé une façon qui me convient
mais il s'arrête à mi parcourt c'est à 4200 (le paresseux)
si tu pouvais me le modifier,
ce sera sympathique de ta part

Dim c As Range, dl As Integer

Application.ScreenUpdating = False

dl = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row 'dernière ligne de la colonne A

For Each c In Range("A7:A" & dl) 'de A7 à la dernière ligne
c.Interior.ColorIndex = xlNone 'on efface les couleurs
c.Offset(0, 5).ClearContents 'efface les données en F

If Range("C1") <> "" And Range("C1") <> 0 Then 'si C1 nest pas vide et différent de 0
If c.Value Mod Range("C1") = 0 Then 'si multiple de C1
c.Interior.ColorIndex = 7 'couleur violet
c.Offset(0, 5) = "ok" 'ok en F
End If
Else
c.Interior.ColorIndex = xlNone 'sinon pas de couleur
End If
Next c

Application.ScreenUpdating = True

End Sub
Merci pour ton aide

Spinzi · 30 Octobre 2019

Bonsoir chilo,

pour ton code, vérifie que toutes les cellules de ta colonne A soient bien remplies jusqu'à la dernière ligne.

Spinzi

job75 · 30 Octobre 2019

Bonsoir, salut Spinzi,

Je ne vais sûrement pas utiliser du VBA pour un truc aussi simple.

Ma formule du post #4 va très bien mais vous ne savez peut-être pas la valider matriciellement.

Pour la valider matriciellement il faut cliquer dans la barre de formule et appuyer simultanément sur les touches Ctrl+Maj+Entrée.

Fichier joint.

A+

chilo · 30 Octobre 2019

job75 à dit:
Bonsoir, salut Spinzi,

Je ne vais sûrement pas utiliser du VBA pour un truc aussi simple.

Ma formule du post #4 va très bien mais vous ne savez peut-être pas la valider matriciellement.

Pour la valider matriciellement il faut cliquer dans la barre de formule et appuyer simultanément sur les touches Ctrl+Maj+Entrée.

Fichier joint.

A+

Merci Job75

Je vous remercie pour l'aide

Bonne soirée à tous

Konte94 · 13 Février 2020

Slt les gars SVP je cherche un programme vba qui permet de me donner les multiples de 3 sur un tableau

job75 · 13 Février 2020

Bonjour Konte94,

A priori le plus simple est d'utiliser une Mise en forme conditionnelle (MFC) pour colorer les cellules :

VB:

=NON(MOD(A1;3))

la 1ère cellule du tableau étant en A1.

A+

Konte94 · 13 Février 2020

merci Job75 pour ta suggestion. Je suis débutant je ne comprend pas bien comment sa se passe.

Ikito · 13 Février 2020

Bonjour Konte94,

En image peut-être :

job75 · 13 Février 2020

Bonjour Ikito,

Ou le fichier joint.

Konte94 · 13 Février 2020

J

job75 à dit:
Bonjour Ikito,

Ou le fichier joint.

Merci Job75 mais n'est-il pas possible d'avoir un tableau qui affiche uniquement les multiples de 3

Autres multiple

chilo

XLDnaute Occasionnel

Pièces jointes

xUpsilon

XLDnaute Accro

chilo

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

chilo

XLDnaute Occasionnel

chilo

XLDnaute Occasionnel

Spinzi

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Pièces jointes

chilo

XLDnaute Occasionnel

Konte94

XLDnaute Junior

job75

XLDnaute Barbatruc

Konte94

XLDnaute Junior

Ikito

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Konte94

XLDnaute Junior

Discussions similaires

Autres multiple

XLDnaute Occasionnel

Pièces jointes

XLDnaute Accro

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Impliqué

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency