Discussion :

[pijaku]

re,


merci, mais cette partie du problème je l'avais compris , la pertie que je ne comprends pas est comment faire pour que mon"IF" travaile sur le bon onglet sans employer de ".Select" ? (voir exemple plus haut)

Ta feuille est dans le With.
Tu n'as plus qu'à rapporter à cette feuille les Range qui lui appartiennent en plaçant un point devant.
Exemple :

Code :

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

1
2
3
4
5
6
With Sheets(Onglet(16))
    If Now - .Range("B1") > 1 Then
        TypeEquipe = InputBox("entrer 2 ou 3", "nbrs équipe", 2)
        .Range("E1") = TypeEquipe
    End If
End With

EDIT :
rappel :

A noter : toujours indiquer qu'elle propriété tu utilises... Dans l'exemple j'utilise la propriété Value des Range.

Donc...

Code :

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

1
2
3
4
5
6
With Sheets(Onglet(16))
    If Now - .Range("B1").Value > 1 Then
        TypeEquipe = InputBox("entrer 2 ou 3", "nbrs équipe", 2)
        .Range("E1").Value = TypeEquipe
    End If
End With

[beta007]

comme cela c'est clair
merci encore de votre aide et de votre patience

[Transitoire]

Bonjour, Il ne faut pas mettre le . devant If, mais devant les plages de l'onglet:

Code :

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

1
2
3
4
5
6
With Sheets(Onglet(16))
    If Now - .Range("B1") > 1 Then
        TypeEquipe = InputBox("entrer 2 ou 3", "nbrs équipe", 2)
        .Range("E1") = TypeEquipe
    End If
End With

En fait,

Code :

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

1
2
3
With Sheets(Onglet(16))
     .range("A1"). copy
End With

c'est pareil que d'écrire,

Code :

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

Sheets(Onglet(16)).range("A1").copy

En fait "If" est seulement une fonction "si" qui doit agir sur une plage de la sheets considérée. c'est donc les plages, colonnes ou ligne qui doivent être précédées par un point.
Par ailleurs etes vous sur de l'écriture Sheets(Onglet(16)). ça me semble étrange?
Cordialement

[beta007]

bonjour,

Par ailleurs etes vous sur de l'écriture Sheets(Onglet(16)). ça me semble étrange?
Cordialement

oui (je crois), le "16" est en fait un compteur et cette partie de la macro est dans une boucle et a chaque boucle je passe à l'onglet suivant (c'est peut-être pas la meilleur façon de faire mais cela marche )

et vu que j'y suis j'ai encore un problème, je suis toujours en train d'enlever mes .Select que j'avais généreusement semé partout dans mes macros

Code :

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

1
2
3
4
5
Sheets("donnee").Range(Cells(Ligne, 3), Cells(Ligne, 4)).Copy
With Sheets("resultat")
        .Range(Cells(Ligne, 3), Cells(Ligne, 4)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End With

mais là cela ne passe pas, les deux écritures bug (avec with ou sans), si je ne suis pas sur le bon onglet: soit je suis sur l'onglet donnee et cela copie , mais pas possible de coller soit l'inverse.
où est-ce que j'ai fait faux?
merci encore de votre précieuse aide.

[Menhir]

Code :

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

Sheets("donnee").Range(Cells(Ligne, 3), Cells(Ligne, 4)).Copy

Ceci ne peut pas fonctionner.
Soit ton Sheets("donnee") ne sert à rien (si c'est la feuille active), soit (et c'est plus probable) il faut l'ajouter aussi à chaque Cells contenu dans le Range.
Cela dit, il serait beaucoup plus simple de l'écrire :

Code :

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

Sheets("donnee").Range("C" & Ligne & ":D" & Ligne).Copy

Ou même

Code :

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

Sheets("donnee").Range("C1:D1").Offset(Ligne-1, 0).Copy

Idem pour le PasteSpecial.

[beta007]

super et merci encore c'est parfait

[MarcJinger]

Bonsoir, je m'incruste car je tourne en rond grave (du fait de ma méconnaissance dramatique de vba évidemment) : je n'arrive pas à sélectionner une plage de cellules (contigües et sur la même ligne), en fonction d'une cell active quelconque ; jusqu'ici j'utilisais un brave :
r = ActiveCell.Row
Range(Cells(r, 4), Cells(r, 48)).Select
etc.
mais là je me fais jeter ; mon "r" n'est pas/plus reconnu dans un petit projet tout bête (pourtant je ne crois pas avoir eu à le déclarer dans les précédentes macros bidouillées jusqu'ici)... Si quelqu'un a la bonté de palier à mon ignardise, qu'il en soit remercié au centuple...

[parmi]

Peut-être que tu devrais spécifier le nom de la feuille

With Sheets("Nom de la feuille")
r = .ActiveCell.Row
.Range(.Cells(r, 4), .Cells(r, 48)).Select
End With

À noter les points
Aussi éviter les Select. Il y a tout plein d'exemples ici selon ce que tu veux faire sans faire de Select.

[MarcJinger]

Peut-être que tu devrais spécifier le nom de la feuille

With Sheets("Nom de la feuille")
r = .ActiveCell.Row
.Range(.Cells(r, 4), .Cells(r, 48)).Select
End With

À noter les points
Aussi éviter les Select. Il y a tout plein d'exemples ici selon ce que tu veux faire sans faire de Select.

Merci ! Mais il coince toujours sur r =.ActiveCell.Row --> erreur de compilation, "variable non définie"...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub NewEventInput_Click()
 
With Sheets("BaseTARG")
r = .ActiveCell.Row
.Range(.Cells(r, 4), .Cells(r, 48)).Select
 
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.14996795556505
        .PatternTintAndShade = 0
    End With
 
Call gestion_FormBaseTARG.transferer_valeurs_FormBaseTARG
 
Call gestion_FormBaseTARG.remplir_FormBaseTARG
 
Sheets("BaseLeaderBoard").Activate
Rows(6).Insert
 
Sheets("BaseLeaderBoard").Activate
 
Range("D6").Select
 
ActiveCell = LaBoxDateSaisie.Value
ActiveCell.Offset(0, 1) = ComboBoxSource.Value
ActiveCell.Offset(0, 5) = boxdénom.Value
ActiveCell.Offset(0, 15) = boxca.Value
ActiveCell.Offset(0, 16) = BoxCodeTARG.Value
ActiveCell.Offset(0, 17) = boxdénom.Value
etc.

[parmi]

Déclare ta variable "r" en début de macro

Dim r as Long

[MarcJinger]

Déclare ta variable "r" en début de macro

Dim r as Long

Haaa.... ça fait du bien de sortir la tête de son c.. Merci Parmi !! 😆