Autres multiple

chilo

XLDnaute Occasionnel
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
 

Pièces jointes

  • multiple.zip
    6.7 KB · Affichages: 10

xUpsilon

XLDnaute Accro
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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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
 

job75

XLDnaute Barbatruc
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+
 

Pièces jointes

  • Multiple(1).xlsx
    9.7 KB · Affichages: 9

chilo

XLDnaute Occasionnel
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
 

Ikito

XLDnaute Occasionnel
Bonjour Konte94,

En image peut-être :

1581588978219.png
 

Pièces jointes

  • 1581588959268.png
    1581588959268.png
    30.5 KB · Affichages: 5
  • 1581588978630.png
    1581588978630.png
    32.3 KB · Affichages: 4
  • 1581588978454.png
    1581588978454.png
    32.3 KB · Affichages: 4

Discussions similaires

Réponses
3
Affichages
215

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof