Discussion :

[abouhossam]

est ce que vous pouvez m'aider de trouver la traduction de l'expression suivante en vba:
si le n° de la colonne est un nombre paire "ou impaire"
merci.

[tomy7]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim i As Integer
For i = 1 To Columns.Count
For k = 1 To Columns.Count
 j = i + k
If Column(j) Then .... ' pour paire
 
Next i
Next k
End Sub

je pense plutot que c est sa

[Didier Gonard]

Bonjour,

à mettre dans le code d'une feuille de l'explorateur projet de vba :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sngParite As Single
 
sngParite = Target.Column Mod 2
If sngParite <> 0 Then
    MsgBox "colonne impaire"
Else
    MsgBox "colonne paire"
End If
 
End Sub

En cliquant sur une cellule, un message t'indiqueras la parité de la colonne.
à adapter pour tes besoins.
Mets le curseur sur Mod et appuies sur F1, l'aide est explicite, c'est simple et puissant pour tout ce qui est question de parité

cordialement,

Didier

Ps : rajout n'hésite pas à modifier le titre de ta question, le rapport n'est pas évident avec le sujet, hors c'est important pour les recherches ensuite...

[abouhossam]

bjr
le problème est le voici
pour un tableau qui contient un PRODUIT par ligne j'ai effectué la macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ACTUALISER()
With Sheets("saisie")
For i = 3 To 14
If .Cells(i, 3) <> "" Then
Range(.Cells(i, 3), .Cells(i, 8)).Copy
Sheets(.Cells(i, 2).Value).Range("a65535").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
Next
Range("C3:H14").ClearContents
Range("C3").Select
End With
End Sub

mais lorsque j'aurais 3 enregistrement par produit la chose est un peu dificile pour moi car j'ai bien fusionné les cellules contenant le produit
le problème est clair
merci.

[alsimbad]

bon, j'ai jeter un oeil sur ton fichier, et sur ton bout de code. le probleme n'est pas si clair que ça. la solution ne doit pas etre trop dificile a trouver, voire même assez simple, mais le vrai probleme est de comprendre ce que tu veu faire. il s'agit d'un inventaire
date d'entrée, nombre de sortie, nombre d'entrée. mais c'est quoi exactement que tu veux faire avec ta macro ? ajouter des lignes ? il faudrait que tu arrive a formuler exacement ce que tu veux obtenir

[Abed_H]

Bonjour alsimbad
D’après son fichier et son bout de code je pense qu’il veut mettre à jour une notre feuille à partir de la feuille saisie chose que ça n'a rien à avoir avec la question.
Bonne journée

Abed_H

[ouskel'n'or]

Je reprends la question

est ce que vous pouvez m'aider de trouver la traduction de l'expression suivante en vba:
si le n° de la colonne est un nombre paire "ou impaire"
merci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim NoCol As Integer, NoLig As Long
    For NoLig = 1 To 10
        For NoCol = 1 To Rows(NoLig).Columns.Count
             If NoCol Mod 2 = 0 Then
                  MsgBox "Colonne " & NoCol & " paire"
               else
                  MsgBox "Colonne " & NoCol & " impaire"
             endif
        Next
    Next
End Sub

A adapter...

[fring]

Salut Ousk

Entre le message #1, #4 et #7...difficile de savoir quelle est la véritable question

[Didier Gonard]

Bonjour,

Salut ouskel'n'or,

ma réponse du 07/03 - 13h54, l' étais pas bonne ?

cordialement,

Didier

[ouskel'n'or]

Désolé, Ormonth, mais la question, c'était quoi, déjà ?

PS - Je viens de lire ta réponse (que je n'avais pas vue) et je viens de trouver une excuse à ma participation (pas si) inutile à cette discussion : Toi tu donnes ça lors de la sélection d'une cellule, tandis que je généralise

[abouhossam]

bjr
j'ai bien essayé ton macro fring et j'ai obtenu le message suivant:
erreur de compilation:
erreur de syntaxe
avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(x).Range("A65535").End(xlUp)(2)

selectionnée.

[fring]

Le code fonctionne, je viens de le tester, le problème vient d'ailleurs.

Le mieux, si tu peux, est de coller une copie de ton fichier complet, sinon ça va être difficile de trouver la virgule qui coince